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ABSTRACT 

The  Computer  Aided  Prototyping  System  (CAPS)  was  created  to  rapidly  prototype 
real-time  systems  to  determine  early  in  the  development  cycle  whether  system 
requirements  can  be  met .  The  CAPS  consists  of  several  software  tools  that  automatically 
generate  an  executable  Ada  model  of  the  proposed  system.  This  thesis  describes  the 
development  of  a  design  database  (DDB)  for  the  CAPS.  The  DDB  is  an  engineering 
database  that  contains  all  information  related  to  a  prototype  software  design.  The  DDB 
enhances  the  CAPS  environment  and  the  prototyping  paradigm  by  providing  to  the 
designer  the  functions  of  storage,  retrieval,  viewing,  and  versioning  of  prototype 
components. 

Garry  Lewis  is  the  primary  author  of  chapters  I  and  II  and  Drew  Dwyer  the  primary 
author  of  chapters  in  and  IV.  In  the  joint  implementation,  Lewis  focused  on  the  design 
database  schema  and  C++/ONTOS  issues.  Dwyer  was  responsible  for  building  the 
command  line  interface,  the  hierarchical  k-ary  data  structures  and  the  C++  classes/methods 
for  traversing  this  structure.  Items  not  covered  in  the  above  description  were  mutually 
developed. 
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I.  INTRODUCTION 

A.     SOFTWARE  ENGINEERING 

Each  year  billions  of  dollars  are  allocated  for  the  development  and  maintenance  of 
progressively  more  complex  weapons  and  communications  systems  [Ref.  l:p.  14].  These 
systems  increasingly  rely  on  information  processing  using  embedded  computers  systems. 
Satellite  control  systems,  missile  guidance  systems  and  communication  networks  are 
examples  of  embedded  systems.  Correctness  and  reliability  of  these  software  systems  is 
critical  to  the  reliable  operation  of  national  defense  systems.  Moreover,  software 
development  of  these  systems  is  an  immense  task  with  increasingly  higher  costs  and 
potential  for  misdevelopment. 

Studies  conducted  in  the  early  1970's  showed  that  computer  software  alone 
comprised  approximately  46  percent  of  the  estimated  total  DoD  computer  cost.  Of  this  cost, 
56  percent  was  devoted  specifically  to  embedded  systems  [Ref.  l:p.  14].  In  spite  of  the 
tremendous  cost,  there  were  examples  of  software  systems  produced  that  exceeded 
estimated  development  cost,  fell  behind  the  production  schedule  and  were  delivered  not 
fully  functional. 

Software  engineering  developed  in  response  to  the  need  to  design,  implement,  test, 
install  and  maintain  more  efficiently  and  correctly  larger  and  more  complex  software 
systems.  Numerous  methodologies  have  been  introduced  to  support  software  engineering. 
The  two  major  approaches  which  underlie  these  different  methodologies  are  the  phased 
refinement  and  prototyping  method  of  development. 

The  predominant  model  for  current  application  development  is  the  phased  refinement 
approach.  In  this  approach,  all  system  functionality  is  specified  in  the  first  step  of 
development,  and  subsequent  implementation  phases  add  prescribed  design  details.  This 


approach  is  criticized  for  its  high  cost  of  maintenance,  failing  to  abstract  tasks  early  in  the 
development  process,  and  for  complications  in  system  integration.  Prototyping,  as  an 
evolutionary  system  development  paradigm  in  which  a  number  of  nonstandard  concepts 
work  together,  promises  to  achieve  effective  evolution  of  integrated  hardware/software 
systems. 

Prototyping  is  the  process  of  developing  a  scaled-down  version  of  a  system  to  use  in 
building  a  full-scale  system.  Computer-aided  rapid  prototyping  promises  to  provide  a 
means  for  building  a  scaled-down  version  of  a  system  more  quickly  than  using 
conventional  approaches.  The  final  product  of  the  prototyping  activity  is  a  working  model 
that  can  be  used  for  many  purposes,  such  as  requirement  validation,  feasibility  study  for  a 
complex  system,  and  functional  specification  of  a  system  design.  [Ref.  2:p.9]  Figure  1 
illustrates  the  role  of  prototyping  in  software  development.. 

The  process  model  differs  from  the  traditional  phased  approach  in  that  it  concentrates 
on  the  hard  problem  of  system  development,  namely;  requirement  specification,  and  design 
rather  than  coding.  Equally  important,  validation,  evaluation,  and  hardware/software  trade- 
off analysis  are  all  part  of  the  development  process-they  do  not  just  follow  completion  of 
the  development  in  each  phase.  Rapid  prototyping  works  by  providing  continuous  feedback 
information  as  rapidly  and  efficiently  as  possible.  [Ref.  2:p.  9] 

B.      THE  COMPUTER  AIDED  PROTOTYPING  SYSTEM  (CAPS) 

The  evolution  development  of  a  software  system  design  requires  an  integrated  design 
support  environment.  A  typical  structure  for  a  design  environment  that  supports  the  rapid 
prototyping  paradigm  and  the  evolution  process  model  is  that  provided  by  the  CAPS  [Ref. 
4:p.  15]. 

CAPS  is  a  rapid  prototyping  environment  which  includes  the  ability  to  prototype  hard 
real-time  systems.  This  approach  to  rapid  prototyping  uses  a  specification  language  called 
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Figure  1.  Process  Model  for  Software/System  [Ref.  3:  p.7] 

Prototyping  System  Design  Language  (PSDL)  and  an  integrated  set  of  prototyping  tools. 
The  tools  are  integrated  through  the  user  interface.  The  primary  tools  in  CAPS  may  be 
divided  into  three  main  systems  [Ref.  4:p.  15].  The  subsystem  and  their  tools  are: 
The  User  Interface  which  is  composed  of  the  following  tools: 

•  Graphic  Editor 

•  Syntax  Directed  Editor 
Browser 

•  Expert  System 


The  Software  Base  System  which  is  composed  of  the  following  tools: 


Software  Design  Management  System 
Design  Database 
Software  Base 


The  Execution  Support  System  which  is  composed  of  the  following  tools: 

•  Translator 

•  Static  Scheduler 

•  Dynamic  Scheduler 
Debugger 


The  Graphic  Editor  is  a  tool  which  permits  a  designer  to  specify  a  portion  of  a  PSDL 
prototype  using  graphical  objects  to  represent  the  system.  Graphical  objects  include 
operators,  inputs,  outputs,  data  flows,  and  self  loops  on  operators.  All  graphic  objects  are 
named  and  may  have  time  constraints  associated  with  them. 

The  Syntax  Directed  Editor  is  used  by  the  designer  to  enter  the  text  portions  of  the 
prototype  design  not  represented  by  the  graphic  editor  and  to  ensure  that  the  prototype  is 
syntactically  correct  PSDL. 

The  Browser  provides  a  means  for  the  designer  to  view  reusable  components  in  the 
software  base. 

The  Expert  System  provides  a  paraphrasing  capability  that  generates  English  text 
descriptions  of  PSDL  specification.  This  tool  permits  users  who  are  unfamiliar  with  the 
PSDL  language  to  evaluate  a  prototype. 

The  Software  Design  Management  System  manages  and  retrieves  the  versions, 
refinements,  and  alternatives  of  the  prototype  in  the  Design  Database  and  the  reusable 
components  in  the  software  base. 

The  Design  Database  contains  PSDL  prototype  descriptions  for  all  software  projects 
developed  using  CAPS. 

The  Software  Base  contains  PSDL  descriptions  and  implementations  for  all  reusable 
software  components  developed  using  CAPS.  [Ref.  5] 


The  Translator  generates  high  level  code  from  the  PSDL  prototype  which  binds  the 
reusable  components  from  the  software  base  to  the  executable  prototype.  [Ref.  6] 

The  Static  Scheduler  attempts  to  allocate  time  slots  for  the  representation  of  PSDL 
operators  with  real-time  constraints  before  the  prototype  is  executed.  If  the  allocation 
succeeds,  all  operations  are  guaranteed  to  meet  their  deadlines.  [Ref.  7] 

The  Dynamic  Scheduler  invokes  representation  of  operators  with  real-time  constraints 
at  run-time  to  occupy  time  slots  which  are  not  used  by  operators  with  real-time  constraints. 
The  time  slot  which  the  dynamic  scheduler  uses  are  "slack  times".  Dynamic  scheduling 
occurs  during  execution  of  the  prototype.  [Ref.  7] 

The  Debugger  allows  the  designer  to  interact  with  the  execution  support  system.  The 
debugger  has  facilities  for  initiating  the  execution  of  a  prototype,  displaying  execution 
results  or  tracing  information  of  the  execution  and  gathering  statistics  about  a  prototype's 
behavior  and  performance. 

Prior  to  the  work  described  in  this  thesis,  implementations  had  been  developed  for  the 
graphic  editor,  translator,  static  scheduler,  and  user  interface.  The  design  of  a  debugger  has 
been  defined.  Feasibility  studies  had  been  conducted  for  the  syntax  directed  editor,  design 
database  and  the  software  base. 

C.     PROBLEM  STATEMENT 

Vast  amounts  of  evolving  data  are  created  in  the  design  of  hard  real-time  systems.  The 
data  must  be  managed  so  that  it  can  be  stored  and  retrieved  according  to  the  needs  of  a  team 
of  design  engineers.  In  CAPS,  the  Design  Database  (DDB)  must  manage  the  storage  and 
retrieval  of  the  PSDL  program.  The  DDB  must  be  a  specialized  DBMS  which  will  store 
PSDL  specifications  in  a  hierarchical  format  and  manage  all  support  files  associated  with 
a  software  design  project.  [Ref.  8:p.  5] 


The  DDB  also  provides  concurrency  control  functions  that  allow  multiple  designers  to 
update  parts  of  the  prototype  without  unintentional  interference.  In  the  interest  of 
minimizing  delay,  the  design  database  will  not  lock  out  read-only  access  to  any  part  of  the 
design,  even  while  the  design  is  being  updated.  Instead,  the  system  will  allow  examination 
of  the  previous  version  of  the  component,  with  a  warning  that  a  new  version  is  currendy  in 
preparation.  On  request,  the  system  will  provide  information  about  the  reason  for 
modification  of  the  component  (such  as  a  new  or  modified  requirement). 

D.  OBJECTIVES 

The  objective  of  this  thesis  is  to  develop  an  object-oriented  design  database  for  the 
CAPS.  The  design  database  must  be  accompanied  by  a  user  interface  that  enables  the 
designer  to  perform  routine  database  tasks  such  as  opening,  closing,  querying,  storing,  and 
retrieving  operations. 

E.  ORGANIZATION 

Chapter  II  contains  a  survey  of  the  requirements  for  an  engineering  database  with  an 
emphasis  on  the  object-oriented  approach.  An  introduction  to  ONTOS,  a  state  of  the  art 
object  database  will  conclude  Chapter  II.  Chapter  in  contains  the  design  of  the  database 
objects.  Chapter  IV  shows  the  design  database  implementation  details  using  C++  and 
ONTOS.  Conclusions  and  recommendations  will  be  presented  in  Chapter  V. 


H.  BACKGROUND 

A.     ENGINEERING  DATABASE 

An  engineering  database  should  provide  the  following  facilities  to  support  computer- 
aided  software  development  environments: 

Persistence 

Concurrency  control 

Version  control 

Reuse  of  past  design  objects 

Configuration  control 

A  wide  variety  of  data  storage 

Guarantees  data  will  not  be  corrupted  due  to  system  or  media  failure 

A  fundamental  feature  provided  by  a  database  is  persistent  storage.  If  objects  are 
persistent,  this  means  the  objects  in  the  database  will  exist  after  the  process  that  created 
them  has  terminated.  [Ref.  9:p.472] 

In  a  design  environment,  one  usually  has  to  keep  data  on  several  design  alternatives, 
revisions,  design  stages,  and  so  on.  Hence  information  about  the  same  semantic  entity  has 
to  be  recorded  more  than  once.  If  versioning  is  implemented  in  the  DBMS's  storage 
subsystem,  then  it  can  be  done  on  fine  granularity  components.  When  creating  a  new 
version,  only  those  components  that  have  changed  since  the  previous  version  need  to  be 
stored.  In  the  new  version,  unchanged  components  can  be  represented  by  pointers  to  their 
previous  versions.  This  is  efficient  in  storage  because  only  the  changed  components  are 
repeated  in  the  new  versions.  It  is  also  efficient  in  execution  time;  since  versions  are  not 
encoded  they  can  be  retrieved  directly  instead  of  being  reconstructed  using  change  logs,  as 
in  RCS  and  SCCS.  [Ref.  10:p.  168] 

The  goals  of  configuration  management  include  recording  the  development  history  of 
evolving  systems,  and  aiding  the  management  of  the  systems  in  guiding  and  controlling 


their  evolution  [Ref.  1 1  :p.  9 1 8].  A  structure  that  captures  the  evolution  of  a  design  in  terms 
of  its  hierarchical  decomposition,  alternative  implementation  and  revision  history,  is 
crucial  to  the  effective  reuse  of  past  design  objects. 

The  partitioning  of  the  design  task  across  levels  of  abstraction  and  between  many 
design  engineers  requires  the  design  database  to  support  concurrent  access  and  implement 
concurrency  controls.  The  issue  of  concurrent  access  for  a  design  is  significantly  different 
than  for  a  conventional  database  application  due  to  the  different  lengths  of  transactions  that 
each  must  support.  In  a  design  environment,  individual  design  objects  may  be  "checked- 
out"  for  long  periods  of  time  [Ref.  12:p.  66].  However,  over  the  course  of  some  transactions 
other  designers  may  require  "access"  to  a  design  object  that  is  already  checked-out.  The 
concurrency  control  system  must  therefore  support  an  object  locking  mechanism  that 
remains  in  the  database  after  the  current  process  has  ended  and  permits  a  designer  to  view 
objects  already  checked  out  to  be  operated  on  by  another  designer. 

The  design  database  must  store  a  variety  of  formatted,  unformatted,  and  variable- 
length  objects  such  as  program  text.  In  addition  to  program  text,  the  design  database  must 
store  management  information  and  natural  language  descriptions  for  documentation/ 
historical  purposes.  One  of  the  criticisms  of  relational  DBMS  is  that  they  are  inadequate  for 
the  data  handling  requirements  of  a  support  environment. 

Securing  data  stored  in  a  design  database  is  another  concern  [Ref.  13:  p.  37].  Some 
type  of  mechanism  must  exist  whereby  access  to  objects  in  the  database  can  be  restricted. 
Protecting  high- value  data  (a  civilian  company's  proprietary  information,  or  sensitive 
military  data)  from  compromise  requires  a  system  that  is  sophisticated  enough  to 
distinguish  different  user  access  privileges  and  appropriately  grant  or  deny  access  to  a 
particular  object  in  the  database. 

Finally  the  database  must  ensure  that  data  will  not  be  corrupted  due  to  system  or  media 
failures. 


B.      OBJECT-ORIENTED  DATABASE  MANGEMENT  SYSTEMS 

Object-oriented  database  management  systems  (OODBMSs)  in  particular  offer 
several  features  that  promote  rapid  prototyping.  One  of  the  major  advantages  of  the  object- 
oriented  paradigm  is  increased  modeling  power.  Objects  and  their  relationships  in 
OODBMSs  can  be  aligned  very  closely  to  objects  and  their  relationships  in  the  real-world. 
On  the  other  hand,  conventional  data  modeling  paradigms  such  as  file  formats  or  relational 
models  require  considerable  effort  to  force  real-world  objects  into  fixed  programming 
constructs.  Thus,  a  semantic  gap  exist  between  the  way  information  is  stored  and  the  way 
it  is  used.  Relational  databases,  in  particular,  are  inadequate  for  storing  complex 
information  structures  such  as  those  in  the  CAPS.  [Ref.  14:p.  32] 

OODBMSs  typically  provide  a  set  of  predefined  system  types,  such  as  set,  queue, 
stack,  list,  and  ordered  dictionary.  This  simplifies  the  modeling  effort  as  the  designer  can 
concentrate  on  the  problem  at  hand  and  not  clutter  the  solution  with  "data  structure" 
specific  procedures. 

1.     Modelling  Object  Relationships. 

Using  a  limited  set  of  constructs  to  model  diverse  concepts  inevitably  leads  to  loss 
of  exact  meaning.  OODBMSs  provide  several  mechanisms  to  model  different  relationships 
among  objects.  Object  specialization/generalization  refers  to  the  ability  to  organize  objects 
in  an  is-a-kind-of  hierarchy.  Classification  is  the  ability  to  relate  an  object  to  a  group  of 
objects  via  the  is-an-instance-of  relationship.  Aggregation  allows  the  programmer  to  model 
an  object  as  an  aggregate  of  its  constituent  objects.  This  type  of  relationship  is  known  as 
the  is-a-part-of  relationship.  [Ref.  14:p.  32] 


2.  Data  Abstraction  and  Data  Hiding. 

The  advent  of  third-generation  programming  languages  points  out  the  need  for  a 
clear  distinction  between  the  storage  structures  associated  with  the  data  and  the  logical 
structure  of  the  information.  Data  abstraction  refers  to  the  extreme  case  of  this  separation, 
where  access  to  the  storage  structure  may  only  be  gained  through  a  set  of  predefined 
operations.  Data  hiding  insulates  the  programmer  from  the  actual  structure  where  data  is 
stored.  In  OODBMSs,  completely  encapsulating  an  object  with  its  data  and  operations 
forces  the  programmer  to  use  the  correct  operations  on  all  objects.  In  addition,  a 
programmer  need  only  know  about  the  objects  that  his  or  her  code  uses.  [Ref.  14:p.  33] 

3.  Property/Operation  Inheritance. 

Property/operation  inheritance  implies  that  an  object  type  automatically  has  all 
the  properties/operations  of  its  parent  type.  This  is  one  of  the  fundamental  differences 
between  OODBMSs  and  relational  databases.  [Ref.  14:p.  33] 

From  the  standpoint  of  rapid  prototyping,  operation  inheritance  is  perhaps  more 
valuable  than  property  inheritance.  A  programmer  does  not  need  to  reimplement  the 
behavior  that  a  type  shares  with  its  supertype.  More  importantly,  this  allows  a  programmer 
to  assign  default  behavior  to  objects.  In  fact,  once  the  subtype- supertype  link  is  established 
in  the  is-a-kind-of  hierarchy,  a  large  amount  of  code  automatically  become  available  to  the 
object,  even  before  a  single  line  of  code  specific  to  the  new  object  type  has  been  written. 
[Ref.  14:p.  33] 

4.  Method  and  Trigger  Combination. 

Method  and  trigger  combination  invokes  writing  several  small  modules  of  code 
and  using  them  in  different  combinations  to  form  methods  for  different  types  and  situations. 
In  conventional  programming,  this  would  involve  many  checks  which  would  make  the 
code  inefficient.  However,  with  OODBMSs,  the  automatic  dispatching  mechanisms  (see 
the  next  section)  allows  programmers  to  combine  modules  by  triggering  them  at  the 
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appropriate  places.  Each  object-specific  operation  module  is  designed  to  handle  its 
additional  set  of  properties  and  then  invoke  the  corresponding  module  of  its  supertype. 

5.     Generic  Programming. 

In  generic  programming,  programmers  write  code  modules  as  general  as  possible 
so  they  can  be  used  by  different  types  of  objects.  Two  essential  features  of  the  object 
paradigm-polymorphism  and  access  to  metainformation— help  generic  programming. 
Polymorphism  is  the  ability  to  automatically  dispatch  a  call  to  an  appropriate  routine 
according  to  the  type  of  parameters  passed.  This  feature  makes  code  upward  compatible 
and  resilient  to  modifications  [Ref.  14:p.  34].  Another  characteristic  of  OODBMSs  that 
makes  a  program  resilient  to  the  addition  of  new  types  is  the  accessibility  of 
metainformation.  The  user-  defined  types  are  actually  objects  compiled  into  the  database. 
They  are  therefore  available  to  a  program  just  like  any  other  project.  The  advanced 
exception-handling  capability  of  OODBMSs  comes  in  handy  in  rapid  prototyping. 
Typically,  a  large  amount  of  code  in  an  application's  final  version  deals  with  erroneous 
input  data  or  other  anomalous  situations.  Programmers  would  like  to  avoid  such  detailed 
error  handling  in  early  prototypes.  If  exceptions  are  also  treated  as  objects,  a  programmer 
can  initially  write  a  simple  exception  handler  for  the  most  general  type  of  exception.  The 
programmer  can  then  gradually  refine  this  default  exception  handler  as  the  prototype 
grows. 

C.     ONTOS  OBJECT  DATABASE 

We  used  the  ONTOS  Object  Database  as  the  database  engine  for  the  design  database. 
ONTOS,  and  its  predecessor  Vbase,  are  products  of  Ontologic,  Inc.  Vbase  was  used  at  the 
Naval  Postgraduate  School  to  test  the  feasibility  of  a  design  database  after  completion  of  a 
conceptual  level  design  [Ref.  8:p.  9]. 

We  conclude  this  section  with  a  description  of  the  functionality  provided  by  the 
ONTOS  Object  Database. 
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ONTOS  supports  the  full  object  model.  The  database  schema  represents  object 
classes,  data  members  (properties)  and  member  functions  (operations).  Any  class  definition 
which  can  be  specified  in  C++  can  be  stored  in  ONTOS  as  an  ONTOS  Type. 

ONTOS  supports  both  the  single  and  multiple  inheritance  model  of  object  oriented 
programming.  The  class  model  that  is  used  in  the  C++  application  is  represented  in  the 
database  as  object  schema.  ONTOS  schema  information  is  stored  directly  in  the  database 
as  object  data. 

ONTOS  provides  three  interfaces  for  use  by  the  application  programmer:  a  C++ 
interface,  an  Object  SQL  interface,  and  a  programmatic  schema  manipulation  facility.  We 
are  primarily  concerned  with  the  C++  interface.  ONTOS  provides  an  interface  to  C++ 
which  is  simple  to  use.  It  provides  a  transparent  database  interface  which  is  generated  by 
ONTOS  utilities. 

ONTOS  uses  a  standard  client-server  architecture.  C++  client  applications  interact 
with  a  logical  ONTOS  database  server.  The  ONTOS  database  server  provides  object 
storage,  transactions,  concurrency  control  and  other  database  services.  C++  client 
application  make  requests  to  the  database  server  to  access  and  store  objects.  When  a  client 
application  requests  an  object,  the  system  automatically  translates  the  object  into  its  C++ 
in-memory  representation  and  places  the  object  in  the  C++  client  application's  in-memory 
process  heap. 

ONTOS  provides  Aggregate  classes  including  Set,  List,  Array,  and  Dictionary.  Sets 
adds  the  functionality  of  mathematical  sets  to  C++.  Sets  are  unordered,  unkeyed 
Aggregates  with  no  duplicate  members.  Lists  provide  the  abstraction  of  linked  list; 
logically,  members  are  stored  serially,  in  a  chain.  Each  position  in  the  chain  is  numbered, 
starting  at  position  zero.  An  Array  is  an  Association  of  declared  size  whose  keys  are  a 
continuous   range   of  integers   and   whose   members   are   Entities.   Dictionaries   are 
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Associations  whose  keys  and  members  are  Entities  and  whose  size  is  unrestricted. 
Dictionaries  may  be  ordered  or  unordered. 

ONTOS  supports  the  standard,  locked-based  transaction  model  which  is  common  to 
all  major  database  systems.  The  transaction  protocol  supports  transaction  start,  checkpoint, 
commit  and  abort.  Checkpoint  allows  a  transaction  to  commit  the  changes  made  up  to 
checkpoint  and  then  to  continue  with  the  transaction.  ONTOS  transactions  also  support 
transaction  journaling.  Journaling  maintains  a  log  of  changes  made  to  the  database  within 
a  transaction,  which  can  be  used  to  provide  roll-forward  recovery  after  a  server  process 
failure. 

In  addition  to  the  standard  transaction  model,  ONTOS  supports  high-concurrency  and 
shared  transactions  for  workgroup  applications,  as  well  as  nested  transactions  with 
transaction-based  undo  capabilities. 

Onto  supports  locking  at  the  level  of  object,  aggregate  and  page.  Object-level  locking 
provides  locks  on  individual  objects,  thus  providing  the  highest  possible  concurrency. 
Aggregate  -level  locking  allows  any  aggregate  of  objects  to  be  locked  as  a  group,  to  provide 
higher-granularity  locking  and  concurrency  control  strategies.  Page-level  locking  provides 
optimum  locking  performance  for  large  groups  of  objects  physically  clustered  on  disk. 

The  high  level  of  abstraction  provided  by  C++,  together  with  ONTOS'  complete 
support  of  the  object  model,  matched  against  the  requirements  for  a  engineering  database 
gave  us  complete  confidence  in  our  choice  of  tools  for  implementing  a  design  database  for 
CAPS. 
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HI.  REQUIREMENTS  SPECIFICATION 

Here  we  define  and  present  a  summary  of  the  requirements  specification  for  the  DDB. 
This  set  of  requirements  was  developed  using  the  Berzins  and  Luqi  model  of  Software 
Engineering.  This  model  requires  a  problem  statement,  development  of  an 
environmental  model  and  goals,  and  consideration  of  the  constraints  imposed  on  the 
system.  [Ref.  9:p.  24] 

An  additional  methodology  providing  complimentary  structure  and  style  is  Yourdon 
[Ref.  15].  In  this  approach  the  designer  develops  an  Environmental  Model  and  a  Behavioral 
Model.  The  environmental  model  details  interactions  between  the  DDB  and  the  user.  The 
users  in  our  model  are  the  tool  interface  of  the  CAPS  system  and  the  end  user  (designer). 
The  tool  interface  responds  to  the  needs  and  queries  of  the  end  user  and  other  tools  in  the 
CAPS  system.  The  behavioral  model  describes  the  internal  mechanisms  at  work  in  the 
DDB  system. 

A.  GOALS 

The  goals  of  the  DDB  are  as  follows: 

•  Provide  functionality  which  supports  the  needs  of  a  prototype  designer 
using  the  CAPS  system. 

•  Develop  a  system  which  encapsulates  data  and  functions  together 

•  Provide  flexibility  for  future  development  and  change 

B.  DDB  INTERFACES 

1.     Tool  Interface 

The  tool  interface  is  the  glue  which  binds  the  individual  CAPS  tools  together.  A 
picture  containing  the  tool  interface  and  its  relationship  to  the  other  tools  is  provided  in 
Figure  2.  The  tool  interface  interprets  and  reformulates  requests  sent  from  one  tool  to 
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Figure  2.  Computer  Aided  Prototyping  Environment  [Ref.  3:p.  16] 

another  -  modifying  the  request  to  achieve  the  desired  output.  A  typical  sequence  of 
requests  is  shown  in  Table  1  in  informal  language. 
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TABLE  1:  TYPICAL  TOOL  INTERFACE  INTERACTION 


Tool 

Converses  with 

Operation 

Graphic  Editor 

Tool  Interface 

"I  want  to  view  operator  X" 

Tool  Interface 

Design  Database 

"Return  operator  X  in  Read  Mode" 

Design  Database 

Tool  Interface 

"Operation  Complete" 

Tool  Interface 

Graphic  Editor 

"Resume  Operation" 

In  the  previous  design  of  CAPS,  if  the  designer  had  to  communicate  with  a  tool, 
that  tool  provided  its  own  end  user  interface  [Ref.  3:p.  21].  However,  the  DDB  responds  to 
commands  only  from  the  tool  interface.  The  user  interface  required  to  query  the  DDB  and 
store,  retrieve,  or  manipulate  prototypes  is  important  for  extending  the  DDB's  services  to 
the  end  user.  A  graphical  user  interface  has  been  developed  as  a  separate  tool  that  interacts 
with  the  DDB  via  the  tool  interface.  This  end  user  interface  extends  to  the  user  those 
functions  defined  in  chapter  IV  of  this  thesis.  The  end  user  interface  is  discussed  briefly  in 
the  next  section. 

2.     End  User  Interface 

Due  to  the  scope  of  the  DDB's  requirements,  we  need  to  separate  the  DDB's 

functionality  from  the  user  interface  functionality.  For  this  reason  the  end  user  interface 

requirements  of  the  DDB  were  removed  and  developed  separately  from  the  functions 

provided  by  the  DDB.  A  graphical  user  interface  developed  at  the  Naval  Postgraduate 

School  allows  the  designer  to  take  full  advantage  of  the  functions  provided  by  the  DDB 

[Ref.  14].  The  user  interface  runs  under  the  control  of  the  tool  interface.  An  example  of  the 

screens  which  a  user  will  see  when  he  requests  access  to  prototypes  stored  in  the  DDB  is 

illustrated  in  Figures  3  through  6 .  These  figures  illustrate  the  sequence  of  panels  a  designer 

will  see/use  when  generating  the  following  DDB  commands: 

•      List  the  names  of  the  initial  decomposition  of  prototype  operators  stored  in 
the  DDB  and  search  for  a  component  contained  inside  of  the  composite 
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component  "user_interface" 
View  a  component's  PSDL  Source 
Select  and  Edit  a  prototype's  attributes 


File      Edit      View      Select    Quit 


ddbS3 


c3i 


Database: 
Prototype: 
Configuration:  |sparc 
Operator 


Version 


EJ 


comms_interface 

corafis_links 

navigation_systew 

sensor_interface 

sensors 

track_databasejnanager 


user  interface 


veapons_interface 
Q  weapons_systeitis 


Figure  3.  DDB  User  Interface  (Search  for  Component) 

The  user  moves  the  selection  bar  to  the  desired  versioned  component  (Operator).  After 
the  operator  (user_interface)  is  highlighted,  double  click  on  that  component  to  see  the 
decomposition  of  that  operator.  The  resulting  view  of  the  decomposition  of  the 
user_interface  operator  is  shown  in  Figure  4. 

After  the  PSDL  operator  message_editor  is  highlighted  (single  clicking  on  that 
operator)  the  designer  selects  the  pull-down  menu  option  File  and  moves  the  selection  bar 
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File 


Edit 


View 


Select      Quit 


Prototype 

Configuration 

Version 


Graphic  PS 


PSDL  Source 


Ada  Source 
M 


ddbS3 


c3i.user  interface 


urn:  |sparc 


Operator  Subtree 
Config  Tree 


£.. 


or 


Version 


display_grapliic_tracks 

display_ tracks 

eroergency_status_screen 

getjnodification_data 

get_user_inputs 

intelligence_report_panel 

manage_user_interface 
iessage_arrival 
iessage_arrival_panel 


message  editor 


|r  eso  lut  i  on_no  tice_pane  1 
Bstatus  screen 


5. 


Figure  4.  DDB  User  Interface  (View  PSDL  Source) 

to  PSDL  Source.  When  that  option  is  activated  the  user  is  able  to  view  the  contents  of  the 
PSDL  Source  for  the  message_editor  (not  shown). 

In  Figure  5  the  user  highlights  the  prototype  c3i  and  selects  edit  prototype.  The  results 
of  this  action  (Figure  6)  present  the  user  with  an  edit  screen  which  allows  him  to  edit 
various  data  fields  of  the  prototype.  The  composition  of  prototypes  and  other  classes 
implemented  in  the  DDB  will  be  explained  in  Chapter  IV. 

This  method  of  developing  the  user  interface  (DDB->tool  interface->user  interface) 
enhances  modularity  and  provides  flexibility  to  the  overall  CAPS  system.  Consequently, 
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View 


Select      Quit 


Databasi 


Prototype 


Configuration 
Prototyj  Log 

P^nfin.iJVerSIOn 


Prototype 


Version 


robot 


£rob 


51 


Figure  5.  DDB  User  Interface  (Edit  Prototype  )) 

whatever  form  the  tool  interface  and  other  tools  assume  in  the  future,  the  functions  of  the 
DDB  shall  require  little  modification.  Designing  the  DDB  in  this  manner  permits  porting 
the  CAPS  system  to  different  graphical  user  interfaces  existing  on  a  wide  variety  of  system 
platforms. 

The  above  examples  represent  a  small  portion  of  the  capabilities  of  this  engineering 
database.  These  functions  are  further  defined  later  in  this  thesis.  Hereafter  in  this  chapter 
the  term  "user"  will  be  used  generically  to  refer  to  the  tool  interface  and/or  prototype 
designer  (end  user). 
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Save   Quit 


Prototype :  c3i     Date :  Tliu  Sep  121 6:00:00  1 991 


L  eader :  Marianne  Aiello 


Description : 


rhis  project  deals  with  the  command  and  control 
functions  in  the  Aegis  Cruiser  line. 

Expected  completion  date  is  December,  1992. 

Team  Members  assigned  to  develop  this  Prototype 

John  646-5123 
Henry  646-7815 
MaryAnne  646-0917 


Figure  6.  DDB  User  Interface  (Edit  Prototype  Panel) 

C.     ENVIRONMENTAL  MODEL 

The  DDB  statement  of  purpose,  event  list,  and  context  diagram  are  contained  in 
Appendix  A.  A  summary  of  the  model  is  presented  in  the  remainder  of  this  chapter. 

1.     Working  Environment 

Prototypes  are  developed  in  a  system  work  area  for  CAPS  development  specified 
by  a  case  sensitive  Unix  environment  variable  ($PROTOTYPE)  defined  by  the  user  .  The 
value  of  this  variable  should  be  the  path  name  of  a  unique  Unix  directory.  The  DDB  reads 
this  system  variable  to  ascertain  where  to  output  prototype  components.  Components  are 
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immutable  snapshots  of  prototype  development  efforts.  Components  may  be  composite  -  in  which 
case  they  contain  other  components,  or  they  may  be  atomic  -  in  which  case  they  do  not  have  a 
decomposition.  Atomic  components  may  be  transformed  to  composite  components  in  future 
decompositions.  Once  a  prototype  is  stored  into  the  DDB,  the  database  copy  may  not  be  altered. 
To  modify  a  prototype,  a  copy  of  the  prototype  must  be  checked  out  of  the  DDB  and  put  into  the 
user's  local  area.  The  user  then  modifies  the  working  copy.  When  this  copy  is  significantly  altered 
and  certified  as  an  updated  version  it  is  checked  back  into  the  DDB  as  a  new  version  of  the 
prototype.  This  process  is  called  threading  components  [Ref.  11]. 

2.     Version  Structure 

Each  component  represents  a  PSDL  operator  or  type.  Every  component  in  the  DDB  has 
its  own  unique  thread.  This  concept  is  illustrated  in  Figure  7. 

Versions  of  an  Object 


Figure  7.  Threaded  Components 


Versions  of  a  component  are  ordered  by  a  thread.  Each  component  in  the  database  may 
reference  several  types  of  files  generated  by  various  CAPS  tools.  Figure  8  shows  the  potential  set 
of  files  generated  for  a  single  component  in  the  DDB. 

Inserting  a  component  in  a  thread  and  storing  it  into  the  database  can  be  modeled  as 
creating  a  node  in  a  multi-level  acyclic  graph.  In  the  fully  developed  model,  threads  may  split  at 
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Figure  8.  CAPS  Files  in  Versioned  Component 

any  point  into  variations  [Ref  11].  In  the  current  implementation,  there  is  no  provision  for 
a  segmented  join  of  separate  variations,  although  the  groundwork  has  been  laid  in  the 
design  of  object  oriented  structures  which  supports  a  transition  to  the  full  model. 
Decomposing  components  is  an  essential  requirement  for  modeling  the  problem  domain. 
This  decomposition  produces  a  multi-level  k-ary  hierarchy  that  must  be  navigated 
effectively  to  view  and  modify  any  version  object  upon  demand.  For  this  reason  "walking 
the  graph"  [Ref.  17]  is  essential. 

Three  of  the  primary  entities  identified  for  the  DDB  -  a  prototype,  a 
configuration,  and  a  versioned  component  will  be  discussed  in  the  next  section. 

Taken  as  a  whole,  CAPS,  PSDL,  and  the  DDB  provides  the  software  developer 
the  ability  to  store,  retrieve,  and  manipulate  an  unlimited  number  of  prototypes  and 
components.  Working  jointly  with  the  other  tools  in  the  CAPS  system,  the  DDB  provides 
a  capability  never  before  available  in  computer  aided  prototyping.  This  enables  the 
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development  of  large,  real  time,  or  embedded  application  prototypes  more  quickly  and 
efficiently. 

D.     BEHAVIORAL  MODEL 

Just  as  a  motion  picture  is  a  collection  of  still  pictures,  a  prototype  is  a  collection  of 
versioned  components.  Our  ability  to  understand  a  movie  is  directly  related  to  how  well  we 
can  grasp  the  relationship  and  flow  from  one  frame  to  the  next.  Taken  together  as  a  movie, 
these  frames  can  convey  something  of  power  and  beauty.  Developing  a  software  prototype 
is  analogous  to  understanding  a  movie.  With  the  right  grasp  of  the  tools  available  in 
computer  aided  prototyping,  we  can  form  truly  productive  prototypes.  It  is  the  relationship 
of  one  version  to  the  next  that  conveys  the  direction  of  future  development.  As  this 
transformation  is  captured  and  tools  such  as  this  DDB  become  fully  mature,  changes  in  one 
component  that  are  dependent  on  another  will  be  largely  realized  by  automated 
transformations  internal  to  the  tool.  These  DDB  consistency  checks  ensure  that  all 
components  interact  through  their  relationship  in  a  database  hierarchy.  It  is  for  this  reason 
that  cataloging  and  indexing  individual  CAPS  components  is  essential.  This  is  referred  to 
as  Evolution  Management.  [Ref  1 1] 

The  basic  prototype  functions  are  illustrated  in  Figure  9. 

The  DDB  supports  the  viewing,  storing,  and  retrieving  of  prototype  components  in  a 
central  design  repository.  Since  prototypes  are  usually  multi-level  decomposed  subtrees, 
the  DDB  provides  a  mechanism  for  viewing  the  complete  hierarchy  of  a  prototype 
components.  The  DDB  stores  components  required  by  the  other  CAPS  tools  indefinitely. 
The  DDB  has  no  destructive  capabilities  on  the  attributes  displayed  in  Figure  8.  Once 
prototypes  are  posted  to  the  DDB  they  will  never  be  removed  -  although  a  capability  to 
migrate  prototypes  to  archival  storage  such  as  tape  is  planned.  The  DDB  supports  the 
concept  of  configuration  control  on  a  desired  slice  of  the  entire  prototype  history.  The  DDB 
does  not  store  repetitive  copies  of  individual  components  which  do  not  have  different 
versions. 
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Figure  9.  Basic  DDB/CAPS  Functions 

1.     Design  Constraints 

The  DDB  processes  commands  from  the  tool  interface.  The  manner  in  which  data 
is  passed  between  the  tool  interface,  the  DDB,  and  the  end  user  interface  is  illustrated  in 
Figure  10.  The  tool  interface  controls  the  user  interface.  The  DDB  communicates  indirectly 
with  the  end  user  through  the  user  interface's  handling  of  output  from  the  main  function 
calls  to  the  DDB.  Since  the  functionality  of  the  DDB  is  separated  from  the  user,  security  is 
enhanced  and  there  is  less  chance  for  error. 
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Figure  10.  Tool/User  Interface 

2.     Requirements 

The  user  interface  captures  the  standard  output  and  displays  it  to  the  user  in  a  window.  The  data  flow 
diagram  of  the  DDB  is  shown  in  Figure  1 1 .  The  DDB  first  parses  the  command  line  to  verify  that  the  command 
contains  a  legal  function  tag  and  the  appropriate  number  of  arguments.  A  listing  of  the  valid  commands  to  the 
DDB  is  contained  in  Appendix  B.  After  parsing  the  command,  the  DDB  prepares  the  ONTOS  DBMS  for 
storage  and/or  retrieval  by  issuing  specific  ONTOS  DBMS  calls.  Next  the  DDB  reformulates  the  command 
and  initiates  the  sequence  of  functions  required  to  perform  the  transaction.  At  this  point,  the  DDB  will  perform 
a  query  of  persistent  objects  stored  in  the  database  or  will  create  and  input  components  designated  to  be 
checked  into  the  database.  The  remaining  step  displays  confirmation  and/or  displays  the  data  to  standard 
output  (stdout). 

The  end  user  can  then  choose  to  work  with  one  of  the  other  tools  in  the  CAPS  system  for  an  indefinite 
period  of  time.  When  the  designer/manager  is  ready  to  check  a  revision  of  the  prototype  back  into  the  DDB 
he  will  provide  the  tool  interface  a  prototype  name  and  have  the  tool  interface  command  the  DDB  to  search 
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Figure  11.  Design  Database  Data  Flow 


the  working  directory  defined  by  $PROTOTYPE  to  check  modified  or  newly  created 

components  into  the  database  as  a  new  version  of  the  prototype. 

The  capabilities  provided  to  the  user  will  at  a  minimum  contain  the  following  high 

level  operations: 

Insert  new  prototypes  into  the  DDB 

View  existing  prototypes  available  in  the  DDB 

View/Update  prototype  attributes 

Insert  new  configurations  into  the  DDB 

View  existing  configurations  available  in  the  DDB 

View/Update  configuration  attributes 

Insert  new  components  into  the  design  DDB 

View  versioned  components  available  in  the  DDB 

Retrieve  selected  versions  of  components  from  the  DDB 

Prevent  others  from  versioning  components  which  are  currently  evolving 

Update  previous  versions  spawning  alternate  thread  histories 

View/Update  component  descriptions  in  the  DDB 


In  addition  to  the  above  capabilities,  the  DDB  will  allow  the  tool  interface  to: 

•  Override  component  locking  mechanisms 

•  View  component  lock  status 


26 


•  View  a  worker  which  currently  has  a  component  locked 

•  List  decomposition  of  operator/type  components  and  their  descendants 

•  Attach  any  component  to  a  configuration 

•  Navigate  the  hierarchy  from  any  component  directly  or  through  a 
configuration. 

More  generic  database  management  capabilities  are  provided  by  the  ONTOS 
object  oriented  database.  These  DBMS  capabilities  are  considered  vital  to  the  successful 
implementation  of  any  database  management  system.  For  further  information  pertaining  to 
these  and  other  ONTOS  issues  the  reader  is  referred  to  Chapter  II  and  the  ONTOS  (version 
2.01  beta)  users'  manual. 
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IV.  ARCHITECTURAL  DESIGN 

Much  of  the  analysis  and  research  in  this  area  dictates  an  object  oriented  approach  for 
classifying  the  schema  and  functions  of  a  prototyping  storage  and  retrieval  system.  To 
version  components  which  carry  information  relating  to  specifications  of  a  software 
prototype  the  DDB  is  modeled  in  terms  of  its  major  classes  TEXT_OBJECT, 
COMPONENT,  VERSIONED.OBJECT,  THREAD,  CONFIGURATION,  and 
PROTOTYPE.  In  this  chapter  we  define  these  classes,  their  behavior  and  attributes,  and  the 
operations  they  perform. 

A.     GOALS 

The  process  of  developing  this  application  utilizes  the  object-oriented  Programming 
concepts  of  specification,  implementation,  and  refinement  [Ref.  18:p.  5].  First  we  collect 
the  requirements  in  terms  of  user  needs.  The  result  of  this  phase  is  documented  in  Chapter 
in.  The  next  step  is  to  develop  a  conceptual  solution  to  the  requirements.  We  then  convert 
these  conceptual  ideas  into  concrete  classes  and  operations.  This  is  accomplished  by  first 
converting  the  entity-relationship  (ER)  diagram  to  a  functional  specification. 

From  the  functional  specification  we  determined  that  a  command  line  interface  would 
best  satisfy  the  requirement  for  separating  the  functionality  of  the  tool  from  other  CAPS 
tools  and  from  the  end  user.  The  command  line  interface  divides  the  functionality  into  three 
distinct  classes  -  functions  dealing  with  prototype  level  operations,  those  concerned  with 
configurations,  and  those  dealing  with  versioned  component  objects.  The  complete 
command  line  interface  is  contained  in  Appendix  B. 

Now  we  develop  an  informal  solution  followed  by  a  formal  solution  to  the  stated 
design  requirements. 
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B.     DESIGN  DATABASE 

1.  Informal  Solution 

The  DDB  must  contain  a  class  structure  and  methods  which  support  the 

storage,  retrieval,  and  management  of  CAPS  prototypes.  Next  we  integrate  the  ONTOS 

object  oriented  Database  Management  System  with  locally  engineered  classes  and  methods 

designed  to  support  the  informal  solution  and  stated  requirements.  This  equates  to 

designing  a  database  schema.  Choosing  this  approach  carries  several  distinct  advantages: 

Saves  money  because  the  DDB  can  be  developed  in  less  time 
The  ONTOS  system  provides  an  extensive  developer's  library 
Enhances  Security 
Network  capabilities  are  built  in 

Encourages  the  use  of  off  the  shelf  generic  software  programs 
Incorporates  enhanced  documentation  on  data  structures  provided  by 
ONTOS 
•      Ensures  modularity 

These  and  other  advantages  are  discussed  in  Chapter  II. 

2.  Entities  and  Their  Relationships 

The  set  of  files  reflected  in  Figure  8  become  the  primary  attributes  of  a  versioned 
component  in  the  database.  Other  attributes  required  to  effectively  scope  and  manage  these 
components  and  the  unique  capabilities  supported  by  versioning  are  contained  in  the  ER 
diagram  shown  in  Figure  12. 

Figure  13  shows  the  lower  level  entities  required  to  support  the  data  structure  of  a 
versioned  component.  The  entities  THREAD,  COMPONENT,  and  TEXT_OBJECT 
reflect  the  core  elements  stored  as  objects  in  the  ONTOS  database. 

3.  Pre-defined  ONTOS  Classes 

The  main  ONTOS  classes  used  in  this  DDB  application  are: 
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Figure  12.  Design  Database  Entity  Relationship  Diagram 

a.     Object 

Object  is  the  class  used  to  create  persistent  objects  in  the  DBMS.  All  classes 
requiring  persistence  must  inherit  from  Object.  Persistent  objects  exist  for  longer  than  the 
immediate  I/O  session.  An  object  is  persistent  if  you  can  store  it  in  the  database  and  retrieve 
it  at  a  later  time.  If  an  object  is  persistent  it  must  have  a  unique  id.  This  identification 
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Figure  13.  Design  Database  Entity  Relationship  Diagram 


number  may  be  explicitly  assigned  by  the  DDB  application  or  defaulted  to  a  unique  id  key 
field  generated  by  methods  provided  by  this  ONTOS  class.  This  allows  us  to  store  several 
different  components  in  the  database  with  the  appearance  of  each  component  having  the 
same  name. 

b.  List 

Lists  belong  to  a  container  class  which  can  store  other  objects  of  any  type.  As 
a  basic  data  structure,  its  sister  class  List_Iterator  is  used  to  iterate  from  one  instance  of  an 
object  to  the  next. 

c.  Dictionary 

Working  on  an  indexed  set  of  objects  contained  within  it,  Dictionary  is  also  a 
container  class.  It  differs  from  List  in  its  implementation  and  in  its  available  methods  for 
directly  accessing  any  item  contained  within  it  based  on  key  values. 

4.     Design  Database  Classes 

The  DDB  classes  and  methods  work  to  provide  the  user  the  functionality  of  a 
library.  You  can  check  components  in  or  out.  However,  unlike  a  library,  when  you  check 
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components  out  of  the  database  for  updating,  a  "copy"  of  the  components  is  put  into  your 
private  work  area.  These  components  are  then  flagged  inside  the  DDB  as  being  "locked". 
This  lock  prevents  other  designers  from  checking  out  the  same  components  for  updating. 
The  original  component  remains  in  the  database  and  can  never  be  altered.  It  is  an  immutable 
copy  of  the  designer's  prototyping  efforts  at  the  time  it  was  checked  into  the  DDB.  Other 
workers  who  attempt  to  check  out  the  same  versioned  components  may  "view"  the 
prototype,  but  may  not  modify  or  evolve  the  prototype  into  a  newer  version.  The  designer 
unlocks  the  prototype  when  it  is  checked  back  into  the  database.  If  changes  were  made  to 
a  component  then  that  component  will  version.  If  no  changes  were  made  then  versioning 
will  not  be  necessary  and  will  not  occur.  In  either  case,  when  a  prototype  is  checked  back 
into  the  DDB,  the  locks  on  components  in  that  prototype  are  removed. 

A  diagram  of  the  class  hierarchy  for  the  persistent  objects  in  the  DDB  is  included 
as  Figure  14.  A  class  is  a  high  level  abstraction  that  represents  something  in  the  real  world. 
All  classes  developed  to  support  this  model  are  further  elaborated  with  a  class  description, 
behavior,  attributes,  and  operations  in  the  rest  of  this  section: 

Persistent  DDB  Classes 

Class  COMPONENT 

COMPONENT  is  an  abstract  class  in  the  DDB.  It  is  the  core  element  in  the  DDB 
and  represents  a  composite  or  atomic  PSDL  operator/type.  As  reflected  in  the  ER  diagram 
contained  in  Figure  10,  a  component  contains  a  variable  number  of  TEXT_OBJECTS. 

COMPONENT,  like  all  persistent  classes,  is  a  descendant  of  the  ONTOS  class 
Object.  If  a  class  intends  to  store  persistent  objects  in  the  ONTOS  database  then  the  class 
must  inherit  from  the  Object  class. 

A  diagram  of  these  dependencies  is  shown  in  Figure  14. 

Behavior: 

COMPONENT  is  an  abstract  container  class  for  TEXT_OBJECTS.  It  is 
important  to  note  the  distinction  between  atomic  and  composite  components  in  the  DDB. 
Atomic  objects  differ  from  composite  objects  in  the  following  way:  composite  objects 
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Figure  14.  Design  Database  Descendants  of  Class  Object 

decompose  into  other  composite  and/or  atomic  objects,  but  an  atomic  object  has  no  further 
decompositions.  In  the  multi-way  tree  utilized  by  this  application,  atomic  objects  have  no 
children. 

Set  of  Attributes: 

text_object_list  ->  contains  the  list  of  text_objects  in  the  component.  May  contain 

between  zero  and  five  of  the  following  files: 

Postscript:  A  file  containing  Postscript  Description  Language  required  by  the 

graphic  editor. 

Graph:  A  file  containing  shapes  and  geometric  point  information  required  by  the 

graphic  editor. 

Implementation:    A   file   containing   either   Ada    source   code   or   a   PSDL 

decomposition.  This  file  is  used  by  the  syntax  directed  editor,  the  dynamic 

scheduler,  and  the  translator. 

Specification:  A  file  containing  Prototype  Specification  Description  Language 

(PSDL).  This  file  is  used  by  the  syntax  directed  editor,  the  software  base,  the 

dynamic  scheduler,  and  translator. 
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Source:  ADA  Code  -  a  special  file  containing  the  source  code  for  the  component 

and/or  prototype. 

Operations: 

COMPONENT  ->  creates  an  instance  of  the  COMPONENT  class. 

getDirectType  ->  returns  an  ONTOS  Type  . 

getComponentNames  ->  returns  the  names  of  the  TEXT_OBJECTS. 

getComponentSource    ->    restores    the    Postscript,    graph,    implementation, 

specification,  and  source  file  attributes  of  a  versioned  component  to  the 

appropriate  files  in  the  designer's  work  area. 

addTextObject  ->  adds  a  TEXT_OBJECT  to  the  COMPONENT. 

getPSfile  ->  restores  the  Postscript  file  attribute  of  a  versioned  component  to  the 

appropriate  files  in  the  designer's  work  area. 

getGRAPHfile  ->  restores  the  graph  file  attribute  of  a  versioned 

component  to  the  appropriate  files  in  the  designer's  work  area. 

getSPECfile  ->  restores  the  graph  file  attribute  of  a  versioned  component  to  the 

appropriate  file  in  the  designer's  work  area. 

getlMPfile  ->  restores  the  graph  file  attribute  of  a  versioned 

component  to  the  appropriate  file  in  the  designer's  work  area. 

getSOURCEfile  ->  restores  the  graph  file  attribute  of  a  versioned 

component  to  the  appropriate  file  in  the  designer's  work  area. 

Class  CONFIGURATION 

When  a  large  prototype  is  developed  and  evolved  from  one  version  to  another,  the 
user  may  wish  to  selectively  group  different  versions  of  the  component  and  its  graph 
subtree  into  more  manageable  sets.  CONFIGURATION  is  an  abstract  class  which  allows 
the  designer  to  more  effectively  deal  with  selected  subsets  of  components.  Remembering 
that  the  database  will  eventually  consist  of  several  versions  of  a  prototype  and  its 
1.  Refer  to  Chapter  II  Section  C  for  definition  of  ONTOS  Type 
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decomposed  components,  the  user  may  decide  to  set  up  a  configuration  to  reflect  version 
number  1  (CONFIG  l)and  a  newer  configuration  to  reflect  those  components  contained  in 
version  number  2  (CONFIG2).  Working  with  configurations,  the  user  may  decide  that  the 
earlier  configuration  needs  further  refinement  or  that  the  older  configuration  is  more  suited 
to  his  application  development  needs.  The  DDB  will  allow  the  prototype  developer  to 
check  out  the  older  configuration  and  retrieve  all  components  contained  in  that 
configuration  with  one  single  command.  When  the  DDB  is  fully  matured,  that 
configuration  will  be  checked  back  into  the  database  as  version  1.1  -  spinning  off  a  new 
thread  from  the  base  thread.  This  concept  of  a  variation  is  not  implemented  in  this  version 
of  the  DDB,  but  will  be  developed  in  the  next  generation  of  the  tool. 

Behavior: 

CONFIGURATIONS  are  entered  into  the  database  with  commands  given  in 
Appendix  B.  A  versioned  component  is  then  attached  to  the  configuration  as  that 
configurations'  default  versioned  object.  With  this  hook  into  the  prototype  tree  structure, 
configurations  allow  the  designer  to  navigate  the  prototype  hierarchy  -  to  store  and/or 
retrieve  versioned  components  quickly  and  efficiently  to  different  work  areas. 

Set  of  Attributes: 

config_status  ->  reflects  the  current  status  of  design  work.  Possible  values  are  'A' 

-  active;  "T  -  archive  to  tape. 

config_manager  ->  shows  who  is  managing  the  configuration. 

ConfCreationDate  ->  time/date  that  the  configuration  was  created. 

conf_num_vobjects   ->   derived  field  containing   the   number  of  versioned 

components  in  the  configuration. 

config_log_entry  ->  contains  a  running,  non-erasable  log  journal  reflecting  all 

changes  to  the  configuration. 

config_description  ->  A  modifiable  attribute  which  contains  a  generic  description 

of  the  configuration. 
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theVersioned_Object  ->  the  default  versioned  component  which  serves  as  this 

configuration's  entry  point  to  the  prototype  hierarchical  data  structure.  There  is 

only  one  default  versioned  component  per  configuration.  This  is  attached  to  a 

configuration  after  the  configuration  is  inserted  into  the  DDB. 

Operations: 

CONFIGURATION  ->  creates  an  instance  of  the  CONFIGURATION  class. 

getDirectType  ->  returns  an  ONTOS  Type. 

Destroy  ->  cleans  up  the  heap. 

getConfigName  ->  displays  the  configuration  name  to  stdout. 

name  ->  returns  the  configuration  name. 

getConfigStatus  ->  displays  the  configuration  status  to  stdout. 

getConfigManager  ->  displays  the  configuration  manager  to  stdout. 

getConfigLog  ->  displays  the  configuration  Log  to  stdout. 

getConfigDescription  ->  displays  the  configuration  description  to  stdout. 

dumpConfigSummary  ->  displays  the  date  created,  manager,  default  versioned 

component,  and  description  to  stdout. 

listConfigOperators  ->  lists  the  entire  configuration  subtree  (all  operators  from 

default  versioned  component). 

updateConfigManager  ->  updates  the  manager  attribute. 

updateConfigName  ->  updates  the  name  attribute. 

updateConfigStatus  ->  updates  the  status  attribute. 

addtoConfigLog->  appends  entry  to  the  log  attribute. 

updateConfigDescription  ->  updates  the  configuration  description. 

Class  PROTOTYPE 

PROTOTYPE  is  the  highest  level  abstract  class.  A  prototype  represents  all  of  the 
information  associated  with  one  prototyping  project. 
Behavior. 
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PROTOTYPES  are  entered  into  the  DDB  with  commands  reflected  in  Appendix 
B.  PROTOTYPE  is  a  container  class  which  maintains  references  to  CONFIGURATIONS 
and  versioned  components  (V_OBJECTS).  This  ability  to  logically  group  several 
configurations  and/or  components  into  one  prototype  allows  the  designer  to  more  easily 
manage  a  variable  number  of  projects  at  any  one  time. 

Set  of  Attributes: 

protleader  ->  the  name  of  the  prototyping  project  leader. 

protDictlndex  ->  Required  by  ONTOS  for  Dictionary  maintenance. 

protCreationDate  ->  The  time/date  that  the  prototype  was  created. 

protDescription  ->  A  reference  to  a  TEXT_OB  JECT  containing  a  text  description 

of  the  prototype. 

prot_configuration_list  ->A  reference  to  a  list  of  configurations  associated  with  a 

prototype. 

prot_default_configuration  ->  A  reference  to  the  last  configuration  inserted  into 

the  prototype. 

Operations: 

PROTOTYPE  ->  creates  an  instance  of  the  PROTOTYPE  class. 

getDirectType  ->  returns  an  ONTOS  Type. 

Destroy  ->  cleans  up  the  heap. 

getName  ->  returns  the  PROTOTYPE  object  name. 

getConfigName  ->  returns  default  configuration  object  name. 

getPrototypeName  ->  displays  prototype  name  to  stdout. 

getPrototypeLeader  ->  displays  prototype  leader  to  stdout. 

getPrototypeDescription  ->  displays  prototype  description  to  stdout. 

changePrototypeName  ->  substitutes  new  name  for  existing  name. 

changePrototypeLeader  ->  substitutes  new  leader  for  existing  leader. 

updatePrototypeDescription     ->    substitutes    new     description    for    current 

description. 
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dumpPrototypeSummary    ->    displays    the    date    created,    leader,    default 

configuration  name,  and  description  to  stdout. 

addConfiguration  ->  adds  configuration  to  prototype  configuration  list. 

listConfigurations  ->  lists  configurations  to  stdout. 

setProtCreationDate  ->  sets  the  prototype  creation  date  to  system  time. 

getProtCreationDate  ->  returns  a  time/date  of  prototype  creation. 

getDefaultConfigName  ->  displays  the  default  configuration  name  to  stdout. 

getConfiguration  ->  returns  the  configuration  requested. 

getDefaultConfiguration  ->  returns  the  default  configuration. 

getVobject  ->  returns  the  most  current  versioned  component  matching  the 

prototype  name. 

Class  TEXT_OB  JECT 

TEXT_OBJECT  contains  a  file  name  and  its  associated  text. 
Behavior : 

Accept  the  file  name,  construct  an  object  in  the  ONTOS  database  to  store  the 
name  and  file  contents,  and  read  the  file  contents  into  the  persistent  object. 
Set  of  Attributes: 

the_file_name  ->  name  of  the  tool  file. 
the_text  ->  contents  of  the  text  file. 
Operations: 

TEXT_OB  JECT  ->  creates  an  instance  of  the  TEXT_OB  JECT  class. 
getDirectType  ->  returns  an  ONTOS  Type. 
Destroy  ->  cleans  up  the  heap. 

append  ->  reads  the  contents  of  the  file  into  the  ONTOS  object, 
text  ->  sends  a  stream  to  output  file. 

rebuildTextFile  ->  rebuilds  the  text  file  in  the  user's  work  area  and  returns 
completion  status. 
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displayFileName  ->  displays  the  file  name  to  stdout. 
getFileName  ->  return  the  file  name, 
text  ->  returns  the  object's  text. 
resetTheText  ->  resets  the  text  attribute. 

Class  THREAD 

THREAD  is  a  high  level  abstract  class  which  contains  one  or  more  versions  of  the 
same  component.  Additional  components  added  to  a  thread  have  a  version  number 
determined  by  incrementing  the  highest  version  number  of  a  component  in  the  thread  by 
one. 

Behavior : 

A  thread  is  created  for  every  new  component  entered  into  the  database.  Most 
methods  check  for  the  existence  of  a  THREAD  prior  to  executing  a  requested  operation. 

Set  of  Attributes: 

current_version  ->  version  number  of  the  most  recent  version  on  the  thread. 

the_list  ->  an  ONTOS  reference  to  a  List  containing  different  versions  of  a 

component. 

Operations: 

THREAD  ->  creates  an  instance  of  the  THREAD  class. 

getDirectType  ->  returns  an  ONTOS  Type. 

Destroy  ->  cleans  up  the  heap. 

getCurrentVersionNum  ->  returns  the  integer  current  version. 

current  ->  returns  the  versioned  component  (V_OBJECT)  having  the  same 

version  number  as  the  current  version  attribute  of  the  thread. 

version  ->  returns  the  versioned  component  (Y_OBJECT)  having  the  version 

number  supplied  by  the  calling  method. 

add_object  ->  adds  a  new  versioned  component  (V_OBJECT)  to  the  thread. 
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display ThreadVersions  ->  display  the  version  number  of  every  versioned 

component  (V_OBJECT)  in  the  thread. 

display ThreadContents  ->  displays  the  version  number  and  the  description  of 

every  versioned  component  (V_OBJECT)  in  the  thread. 

Class  V_OB  JECT 

V_OBJECT  is  an  abstract  persistentclass.  It  represents  an  immutable  snapshot  in 
time  of  an  operator/type  that  was  checked  into  the  database  as  part  of  a  prototype  design. 

Behavior. 

V_OBJECTS  are  entered  into  the  DDB  with  commands  reflected  in  Appendix  B. 
Only  the  root  V_OBJECT  must  be  entered  by  the  user  (tool  interface).  The  TREE  class  then 
scans  the  directory  for  other  operators  which  are  descendants  of  that  operator  and 
constructs  a  tree  structure  for  comparison  to  the  contents  of  the  database. 

Set  of  Attributes: 

theVersionNumber  ->  the  component's  version  number. 

creationDate  ->  the  date  the  component  was  created. 

lockTime  ->  the  date  the  component  was  created.  Evaluated  as  the  system's  epoch 

time  if  not  locked.  Epoch  time  means  no  lock  is  set  and  lockTime  equals  zero. 

node_name  ->  short  node  name.  No  ancestor  information.  The  long  name  is 

contained  in  the  THREAD  class. 

creator  ->  name  of  the  end  user  who  created  the  component. 

worker  ->  if  the  component  is  locked,  then  this  attribute  contains  the  name  of  the 

worker  who  checked  it  out. 

visited  ->  a  boolean  used  to  navigate  the  tree  structure. 

last_op_checkin  ->  a  boolean  used  to  prevent  duplicate  checkin  operations. 

theDescriptionPtr   ->   TEXT_OBJECT   containing    the   description    for   this 

versioned  component. 

theThreadPtr  ->  pointer  to  the  THREAD  this  versioned  component  is  contained 

in. 
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theCOMPONENTPtr  ->  points  to  the  component  which  contains  the  text  object's 

for  this  versioned  object. 

theChildPtr  ->  points  to  a  list  of  Children. 

theParentPtr  ->  points  to  the  most  current  parent. 

Operations: 

V_OBJECT  ->  creates  an  instance  of  the  V_OBJECT  class. 

getDirectType  ->  returns  an  ONTOS  Type. 

Destroy  ->  cleans  up  the  heap. 

connect_vobject_to_thread  ->  attaches  a  versioned  component  to  a  thread. 

setParent  ->  set's  versioned  components  Parent. 

setNodeName  ->  pulls  the  short  node  name  from  the  thread  name. 

getNodeName  ->  returns  the  short  node  name. 

getVobjName  ->  displays  the  component  name. 

getName  ->  returns  the  component  name. 

resetVisitedFlag  ->  used  to  navigate  the  tree. 

setVisitedFlag  ->  used  to  navigate  tree. 

getVisitedFlag  ->  TRUE  if  visited,  FALSE  otherwise. 

getVObjComponentsName  ->  display  the  names  of  the  text  objects  associated 

with  this  versioned  component. 

display VersionNumber  ->  displays  the  component's  version  number  to  stdout. 

getVersionNumber  ->  return  the  component's  version  number. 

dump Vobj Summary  ->  displays  the  date  created,  creator,  worker  (or  None  if 

unlocked),  lockTime  (or  NONE  if  unlocked),  and  description  to  stdout. 

setCreationDate  ->  The  time/date  that  the  component  was  created 

getCreationDate  ->  returns  the  time/date  the  component  was  created. 

setLock  ->  set's  the  lockTime  immediately  following  checkout. 

getWorker  ->  return  the  worker  who  has  the  component  locked. 

getCreator  ->  return  the  end  user  who  created  the  component  into  the  DDB. 
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setWorker  ->  set  the  worker  to  the  $USER  environment  variable. 

rcsetLastOpTrue  ->  if  last  operation  was  a  checkin,  then  set  the  last  operation 

checkin  attribute  to  TRUE,  prevents  duplicate  checkins. 

resetLastOpFalse  ->  on  a  checkout,  reset  the  last  operation  checkin  to  FALSE. 

get_last_operation  ->  returns  TRUE  if  last  operation  was  a  checkin. 

releaseLock  ->  resets  lock  and  returns  completion  status. 

getLockTime  ->  returns  the  lockTime  of  the  component. 

getDescription  ->  displays  the  description  to  stdout. 

listChildren  ->  displays  a  list  of  children  of  this  versioned  component  to  stdout. 

longlistOperatorNames  ->  displays  a  long  list  of  all  operators/types  in  the  subtree 

of  this  versioned  component. 

listOperatorNames  ->  displays  a  list  of  all  operators/types  in  the  subtree  of  this 

versioned  component. 

updateDescription  ->  updates  the  description  attribute. 

addCOMPONENTNode  ->  adds  a  component  to  this  versioned  object. 

deleteChildNode  ->  deletes  a  reference  from  the  list  theChildPtr. 

addChildNode  ->  adds  a  reference  to  the  list  theChildPtr. 

getParent  ->  returns  the  parent  of  this  versioned  component. 

getCOMPONENT  ->  returns  the  component  of  this  versioned  object. 

dumpSubtree  ->  rebuilds  the  versioned  components  in  read-only  or  read-write 

mode  into  an  end  user's  $PROTOTYPE  directory. 

releaseLockSubtree  ->  releases  the  lockTime  on  all  versioned  components  in  this 

component's  subtree. 

getChildren  ->  returns  the  list  of  Children  of  this  versioned  component. 

getChildPtr  ->  returns  TRUE  if  the  cardinality  of  children  of  this  component  is 

greater  than  zero. 

checkoutCOMPONENTNode  ->  rebuilds  all  text  objects  of  the  component 

attribute  of  this  versioned  object  and  returns  completion  status. 
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Non  Persistent  DDB  Classes 

Class  DIRECTORY 

A  non-persistent  class  designed  to  evaluate  the  status  of  prototypes  being  checked 

into  the  DDB. 

Behavior. 

This  class  has  no  direct  relationship  to  the  end  user  interface.  The  directory  class 

searches  the  $PROTOTYPE  subdirectory  of  the  designer,  determines  what 

operators  exist  that  match  the  prototype  name,  and  develops  a  linked  list  of  nodes 

to  be  inserted  into  a  multi-way  tree.  The  output  from  this  class  is  passed  to  the 

TREENODE  class  for  insertion  of  nodes  into  the  persistent  database. 

Set  of  Attributes: 

TREENODE_linked_list    ->    operator/type    nodes    contained    in    the    user's 

PROTOTYPE  directory. 

Operations: 

DIRECTORY  ->  constructor  for  building  a  directory  scanner. 

read_directory  ->  Given  a  root  operator,  scans  the  user  subdirectory  for  prototype 

component  matches.  Builds  a  list  of  all  prototype  components.  Stores  the 

potential  component  matches  in  a  linked  list  of  operator  nodes. 

updatetimestamp  ->  evaluates  whether  component  files  in  the  user  work  area  are 

newer  than  the  versioned  component  stored  in  the  ONTOS  database.  This 

information  is  used  by  the  TREENODE  class  when  determining  whether  to  create 

a  new  version  of  the  component. 

find_treenode  ->  scans  the  linked  list  of  operator  nodes  to  build  the  multilevel  k- 

ary  tree  of  TREENODES.  Both  operator  nodes  and  TREENODES  use  the  same 

class  structure,  except  that  the  operator  nodes  have  no  children  (subtree) 

references. 
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getOperatorList  ->  required  to  build  the  multilevel  k-ary  tree.  Returns  the  operator 
list  defined  by  evaluating  the  users  work  area  with  the  read_directory  operation. 

Class  QUEUE 

QUEUE  contains  the  basic  non-persistent  queue  data  structure  required  to 

construct  the  multi-level  k-ary  hierarchy. 

Behavior: 

Implements  basic  queue  functions. 

Set  of  Attributes: 

None. 

Operations: 

put  ->  append  an  operator  TREENODE  on  the  queue. 

get  ->  get  an  operator  TREENODE  from  the  queue. 

empty  ->  test  the  queue  for  empty  status. 

Class  slist,  slink,  slistiterator,  slinkiterator 

These  classes  are  non  persistent  abstract  classes  providing  the  generic  capabilities 

of  a  singly  linked  list. 

Behavior : 

these  classes  contain  the  basic  data  structures  required  for  queues  and  linked  lists. 

Set  of  Attributes: 

e  ->  treenode  pointer. 

next  ->  link  pointer. 

ce,  last  ->  slink  pointer. 

cs  ->  slist  pointer. 

Operations: 

slist,  slink,  slist_iterator,  slink_iterator  ->  constructors. 

insert  ->  add  TREENODE  at  head  of  list. 
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append  ->  add  TREENODE  at  tail  of  list, 
get  ->  return  TREENODE. 
clear  ->  remove  all  links, 
empty  ->  test  for  empty  list. 

Class  TREE 

A  non-persistent  class  designed  to  build  a  multi-way  tree  of  operator/types 
developed  by  the  end  user  in  the  $PROTOTYPE  directory. 
Behavior: 

The  TREE  class  will  establish  the  root  operator  and  build  the  tree. 
Set  of  Attributes: 

tree_name  ->  assumes  the  name  of  the  prototype  root  versioned  component. 
theTreeRootNode  ->  TREENODE  (root  of  multi-level  k-ary  tree). 
Operations: 

TREE  ->  constructor  for  building  the  root  TREENODE. 
build_tree  ->  builds  the  multi-level  tree. 

find_treenode  ->  returns  a  TREENODE  from  the  input  list  of  Operator  nodes 
returned  from  DIRECTORY. 

Class  TREENODE 

The  most  important  non-persistent  class  designed  to  build  a  multi-way  tree  of 
operator/types  developed  by  the  end  user  in  the  $PROTOTYPE  directory. 

Behavior : 

The  TREENODE  class  is  used  to  establish  the  operator  node  list,  to  convert  the 
operator  node  list  to  a  multi-level  tree,  and  to  compare  each  node  in  the  multi-level  tree  to 
versioned  components  in  the  database.  Component  versioning  occurs  where  the 
TREENODES  have  newer  timestamps  than  the  lockTime  on  the  versioned  components. 

Set  of  Attributes: 


45 


tree_node_name  ->  explicit  name  of  node  (from  root  node  to  level  in  subtree). 

Taken  in  its  entirety,  the  tree_node_name  contains  the  sequence  of  ancestor 

names  from  the  entire  prototype  name  to  the  given  sub-component's  node_name. 

node_name  ->  unique  name  of  operator/type  without  level/ancestor  information. 

timestamp  ->  contains  the  operator/types  most  recent  system  time.  Each  tool 

updates  the  file  when  it  creates  or  updates  its  product  files. 

level  ->  root  operator  equals  1 .  Other  nodes  reflect  the  level  where  they  reside. 

ChildrenList  ->  linked  list  of  TREENODE  descendants  of  this  instance. 

ParentNode  ->  parent  TREENODE  of  this  instance. 

Operations: 

TREENODE  ->  constructor  which  reads  directory  and  builds  operator  list. 

updatetimestamp  ->  reads  the  directory  again  for  the  newest  of  potential  files  for 

each  operator/type  developed  by  CAPS  tools.  Stores  the  result  in  timestamp. 

getname  ->  returns  the  TREENODE  name. 

insertChildNode  ->  inserts  a  TREENODE  into  the  ChildrenList. 

getChildren  ->  returns  the  linked  list  of  Children  TREENODES. 

getParentNode  ->  returns  the  Parent  TREENODE  of  this  instance. 

get_asc_time  ->  returns  the  26  character  ASCII  time  from  the  standard  C  function 

ctime. 

getlevel  ->  return  the  level  of  this  TREENODE.  root  is  level  1 ,  successive  levels 

increment  by  1. 

get_long_time  ->  return  the  timestamp. 

list_subtree  ->  lists  each  TREENODE  from  the  root  to  each  leaf  node. 

checkin_subtree  ->  initiates  the  recursion  for  comparing  the  tree  of  TREENODEs 

to  the  hierarchical  structure  in  the  ONTOS  database. 

checkin_node  ->  does  the  bulk  of  the  loading  into  the  ONTOS  database.  Creates 

new  threads  and  versioned  components  when  the  TREENODE  timestamp  is  more 
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current  than  the  versioned  component's  lockTime  or  where  no  thread  with  that 
operator  name  exists  (new  operator). 

C.  TESTING  AND  EVALUATION 

The  method  used  for  checking  the  functionality  of  the  DDB  required  an  exhaustive 
check  of  many  possible  variations  of  the  functions  documented  in  Appendix  B.  To 
demonstrate  that  each  of  the  commands  produce  the  desired  output,  a  unix  shell  script  was 
generated  which  tested  all  of  the  functions.  The  complete  version  of  this  shell  script  test  is 
contained  in  Appendix  C. 

The  output  from  this  sequence  of  commands,  also  contained  in  Appendix  C,  shows 
that  the  testing  phase  answered  two  very  important  questions  affirmatively  -  that  this  tool 
could  successfully  store  and  retrieve  versioned  components  of  prototypes  as  dictated  by  the 
design  criteria;  and  that  the  software  engineering  design  database  could  be  developed  as  a 
stand-alone  tool  which  interacted  with  other  tools  through  the  tool  interface. 

The  results  of  some  commands  can  not  be  verified  by  running  that  command  alone.  It 
is  only  by  running  several  commands  in  a  series  that  the  effect  of  one  command  changing 
the  state  of  the  database  can  be  verified.  Consequently,  these  types  of  tests  were  included 
in  the  testing  phase. 

D.  MAINTENANCE  NOTES 

All  code  generated  by  the  authors  in  support  of  this  implementation  effort  is  contained 
in  Appendix  D. 

This  code  was  developed  using  version  2.0  of  the  Glockenspiel  C++  compiler  and  the 
beta  version  2.01  of  the  ONTOS  object-oriented  Database  Management  System.  ONTOS 
tools  included  packages  containing  extensive  capabilities  for  debugging  in  the  form  of  the 
ONTOS  graphical  database  browser  (DBrowser). 

Special  ONTOS  header  files  and  the  makefiles  used  during  compilation  are  contained 
in  Appendix  E. 


47 


V.  CONCLUSIONS  AND  RECOMMENDATIONS 

A.  SUMMARY 

The  goal  of  this  thesis  research  was  to  design  and  develop  an  engineering  database 
which  could  store,  version,  and  retrieve  software  prototype  components.  This  database 
provides  concurrent  users  the  command  functions  to  insert  prototypes,  store  and  manage 
configurations,  and  insert  and  retrieve  components  throughout  the  software  engineering  life 
cycle. 

The  prototype  functions  allow  the  designer  to  store  and  retrieve  management 
information  concerning  any  of  several  potential  prototype  designs. 

The  configuration  functions  allow  the  designer  to  more  easily  navigate  the  various 
versions  of  a  software  prototype.  It  provides  him  a  "hook"  for  navigating  the  hierarchy 
from  any  specified  component.  With  additional  features  such  as  grouping  by  configuration 
and  logging,  configurations  provide  powerful  features  and  a  sound  design  for  the 
development  of  evolution  management  into  the  engineering  database  model. 

The  versioned  component  functions  give  the  designer  the  flexibility  to  checkout  for 
modification  or  viewing  specific  prototype  components;  to  expand,  modify,  and 
decompose  these  components  with  other  tools  in  the  CAPS  system;  and  to  check  selected 
portions  of  those  components  back  into  the  database  at  any  time[Ref.  19]. 

B.  RECOMMENDATIONS  FOR  FUTURE  WORK 

1.     Variations 

Variations  will  allow  users  to  check  out  older  versions  of  components  and/or  groups 
of  components  and  evolve  them  to  newer  versions.  When  the  updates  are  completed 
components  will  version  correctly  -  splitting,  updating,  and  rejoining  threads  where 
appropriate.  Work  must  be  done  on  other  tools  in  the  CAPS  system  to  make  them  accept  as 
input  and  produce  as  output  components  which  contain  version  information.  This  will 
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provide  the  DDB  with  the  necessary  information  for  re-attaching  components  to  the 
hierarchical  structure  at  the  correct  location. 

2.  Security 

This  implementation  of  the  engineering  database  does  not  address  the  issue  of 
security  other  than  the  concurrency  control  mechanisms.  This  thesis  makes  no  effort  to 
distinguish  between  different  levels  of  access  or  authorization  for  access  to  objects  and 
their  attributes.  This  is  a  subject  that  requires  additional  research  and  development. 

3.  Evolution  Management 

This  program  must  be  enhanced  to  incorporate  the  "uses"  and  "derives" 
properties  [Ref.  11].  The  database  will  then  be  capable  of  automatically  flagging  the  effects 
that  changing  one  component  has  on  other  components  in  the  prototype.  As  components 
are  checked  out  of  the  database  they  must  take  information  with  them  pertaining  to  the 
version  checked  out.  This  is  required  to  reattach  components  to  the  multi-way  tree  upon 
update.  These  and  other  evolution  attributes  will  become  an  important  ingredient  for 
providing  a  fully  functional  engineering  database. 
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APPENDIX  A 
ENVIRONMENTAL  MODEL 

A.     STATEMENT  OF  PURPOSE 

The  Purpose  of  the  design  database  is  to  provide  the  designer  a  method  of  storing 
and  retrieving  components  generated  by  the  various  tools  of  the  COMPUTER  AIDED 
PROTOTYPING  SYSTEM  (CAPS).  This  tool  shall  be  flexible  enough  to  expand  as  other 
tools  are  developed.  It  shall  be  capable  of  maintaining  older  versions  of  components  as  new 
components  are  developed.  It  shall  allow  the  user  to  version  new  and/or  older  components 
with  the  common  interface  considerations. 
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B.     EVENT  LIST 

List  prototypes 

List  current  version  of  prototype 

Select  current  version  of  prototype 

Check  out  current  version  of  prototype's  components  for  viewing/update 

Add  new  version  of  prototype's  components 

List  previous  versions  of  prototype 

Select  previous  version  of  prototype 

Check  out  previous  version  of  prototype's  components  for  viewing/update 

List  selected  prototype  attributes  (creation  date,  leader,  etc) 

Update  selected  prototype  attributes  (leader,  description,  etc) 

List  composite  components  (operators/types) 

List  atomic  components  (operators/types) 

List  selected  versioned  component  attributes  (date  created,  description,  etc.) 

Update  selected  versioned  component  attributes  (date  created,  description,  etc.) 

List  configurations 

List  current  default  version  of  configuration  in  prototype 

Select  current  default  version  of  configuration  in  prototype 

Check  out  current  version  of  configuration  for  update 

Add  new  version  of  configuration's  components 
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C.      CONTEXT  DIAGRAM 


dynamic 
scheduler 


CAPS  Interface  Data  Flow  Diagram  (partial/modified)  [Ref.  3:p.  19] 
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APPENDIX  B 
COMMAND  INTERFACE 


A.    PROTOTYPE  COMMANDS 

Table  1:  PROTOTYPE  COMMANDS 


Tag 

Description 

Output 

Call3 

PIP 

Insert  Prototype 

Confirmation 

ddb  <db>  pip  <p>b 
[leader]  [description]0 

PLN 

List  Names 

Names  (1  per  line) 

ddb  <db>  pin 

PLL 

Long  List 

Name/Default  Config/ 
Default  VOBJECT 

ddb  <db>  pll 

Retrieval  Commands: 

PDS 

Dump  Summary 

Date  Created 
Leader 

Default  Config 
Description 

ddb  <db>  pds  <p> 

PRD 

Retrieve  Date 

Date  Created 

ddb  <db>  prd  <p> 

PGL 

Get  Leader 

Leader 

ddb  <db>  pgl  <p> 

PGC 

Get  Configuration 

Default  Config 

ddb  <db>  pgc  <p> 

PGD 

Get  Description 

Description 

ddb  <db>  pgd  <p> 

Update  Commands: 

PUL 

Update  Leader 

Confirmation 

ddb  <db>pul  <p>  "new 
leader" 

PUD 

Update  Description 

Confirmation 

ddb  <db>pud  <p>  file 

a.  <angle  brackets>  reflect  required  parameters.  Lsquare  brackets]  denote  opuonal  parameters. 

b.  <db>  db=any  Ontos  Database  name.  <p>  p=any  prototype  name 

c.  Passed  in  as  a  file-name  or  string 
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B.     CONFIGURATION  COMMANDS 

Table  2:  CONFIGURATION  COMMANDS 


Tag 

Description 

Output 

Call3 

CIC 

Insert  Configuration 

Confirmation 

ddb  <db>cic  <p> 
<c>  [manager] 
[description]0 

CLN 

List  Names 

Names  (1  per  line) 

ddb  <db>  cln  <p>  <c> 

CLV 

List  Default  VOBJECT 

Name/Version 

ddb  <db>  civ  <p>  <c> 

CLO 

List  Operators 

Operator  Name  / 
Version 

ddb  <db>  clo  <p>  <c> 

CLL 

Long  List  Default  VOB- 
JECT's  Children 

Nodee  Name/Ver- 
sion 

ddb  <db>  ell  <p>  <c> 

Retrieval  Commands: 

CDS 

Dump  Summary 

Date  Created 

Date  Changed 

Manager 

Default  VOBJECT/ 

Version 

Description 

ddb  <db>cds  <p>  <c> 

CDA 

Get  Date  Created 

Date  Created 

ddb  <db>  cda  <p>  <c> 

CGM 

Get  Manager 

Manager 

ddb  <db>  cgm  <p>  <c> 

CGD 

Get  Description 

Description 

ddb  <db>  cgd  <p>  <c> 

CGL 

ViewLog 

Log  Entries 

ddb  <db>  egl  <p>  <c> 

Update  Commands: 

CUN 

Update  Name 

Confirmation 

ddb  <db>  cun  <p>  <c> 
new_name 

CUM 

Update  Manager 

Confirmation 

ddb  <db>  cum  <p>  <c> 
new_name 

CUD 

Update  Description 

Confirmation 

ddb  <db>  cud  <p>  <c> 
file 

54 


Table  2:  CONFIGURATION  COMMANDS 


Tag 

Description 

Output 

Call3 

CPL 

Post  Log 

Confirmation 

ddb  <db>  cpl  <p>  <c> 
file 

CRL 

Release  Lock 

Confirmation 

ddb  <db>  crl  <p>  <c> 
[version] 

CAA 

Update  VOBJECT's  sub- 
tree 

Confirmation 

ddb  <db>  caa  <p>  <c> 

CAO 

Attach  VOBJECT  to  CON- 
FIGURATION 

Confirmation 

ddb  <db>  cao  <p>  <c> 
<vobject>  [version] 

Extraction  Commands: 

CDT 

Dump  VOBJECT  subtree 

file(s) 

ddb  <db>  cdt  <p>  <c> 
R/Wg[version] 

a.  <angle  brackets>  retlect  required  parameters,  [square  brackets]  denote  opuonaJ  parameters. 

b.  <db>  db=any  Ontos  Database  name.  <p>  p=any  prototype  name  <c>  c  =  any  configuration 
name 

c.  Passed  in  as  a  file-name  or  string 

d.  Operator  name  containing  explicit  path  information  for  determining  location  (level)  in  heirar- 
chical data  structure 

e.  Node  name  containing  no  reference  to  location  (level)  in  heirarchical  data  structure 

f.  Log  may  be  viewed  only.  Log  can  not  be  updated.  Additional  log  entries  are  posted  to  the  bot- 
tom of  the  current  log. 

g.  R/W  dump  file  for  Read-Only  (R)  or  Write  (W).  Tool  interface  must  supply  either  R  or  W  to 
build  files. 
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C.     VERSIONED  COMPONENT  COMMANDS 


Table  3:  VERSIONED  COMPONENT  COMMANDS 


Tag 

Description 

Output 

Calla 

VAA 

Add  VOBJECT  &  Sub- 
tree 

Confirmation 

ddb  <db>vaa  <p>  <v>b 

VLO 

List  Operators 

VOBJECT  Namec/ 
Version 

ddb  <db>  vlo  <p>  <v> 
[version] 

VLL 

Long  List  VOBJECT's 
Children 

VOBJECT  Named/ 
Version 

ddb  <db>  vll  <p>  <v> 
[version] 

VLP 

Long  List  VOBJECT's 
Parent  &  Siblings 

VOBJECT  Name/Ver- 
sion 

ddb  <db>  vlp  <p>  <v> 
[version] 

Retrieval  Commands 

VDS 

Dump  Summary 

Date  Created 

Creator 

Worker  (or  NONE) 

Lock  Time  (or 

NONE) 

Description 

ddb  <db>  vds  <p>  <v> 
[version] 

VDD 

Get  Date  Created 

Date  Created 

ddb  <db>  vdd  <p>  <v> 
[version] 

VGL 

Get  Lock  Time 

Date/Time  Locked 

ddb  <db>  vgl  <p>  <v> 
[version] 

VGV 

Get  Versions 

Version  Number 
(1  per  line) 

ddb  <db>  vgv  <p>  <v> 

VGD 

Get  Description 

Description 

ddb  <db>  vgd  <p>  <v> 
[version] 

Update  Commands: 

VUD 

Update  Description 

Confirmation6 

ddb  <db>  vgd  <p>  <v> 

filef 

[version] 
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Table  3:  VERSIONED  COMPONENT  COMMANDS 

Tag 

Description 

Output 

Call3 

VAA 

Add  VOBJECT  and 
subtree 

Confirmation 

ddb  <db>  vaa  <p>  <v> 
[version] 

VRO 

Release  Lock  Operator 

Confirmation 

ddb  <db>vro  <p>  <v> 
[version] 

VRS 

Release  Lock  Operator 
and  Subtree 

Confirmation 

ddb  <db>  vrs  <p>  <v> 
[version] 

Extraction  Commands: 

VGP 

Get  Postscript 

file 

ddb  <db>vgp  <p>  <v> 

R/VV8 

[version] 

VGG 

Get  Graphics 

file 

ddb  <db>vgg  <p>  <v> 

R/VV 

[version] 

VGI 

Get  Implementation 

file 

ddb  <db>vgi  <p>  <v> 

R/W 

[version] 

VGC 

Get  Specification 

file 

ddb  <db>vgc  <p>  <v> 

R/W 

[version] 

VGS 

Get  Source 

file 

ddb  <db>vgs  <p>  <v> 

R/W 

[version] 

VDF 

Dump  Operator 
Atomic 

file 

ddb  <db>vdf  <p>  <v> 

R/W 

[version] 

VDT 

Dump  Operator  and 
Subtree 

file(s) 

ddb  <db>  vdt  <p>  <v> 

R/W 

[version] 

a.  <arigie  brackets>  reflect  required  parameters,  [square  brackets]  denote  opuonai  parameters. 

b.  <db>  db=any  Ontos  Database  name.  <p>  p=any  prototype  name  <c>  v=any  vobject  name 

c.  Operator  name  containing  explicit  path  information  for  determining  location  (level)  in  heirar- 
chical data  structure 

d.  Node  name  containing  no  reference  to  location  (level)  in  heirarchical  data  structure 

e.  Only  Creator  may  update  description 
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f.  file  containing  description 

g.  R/W  dump  file  for  Read-Only  (R)  or  Write  (W).  Tool  interface  must  supply  either  R  or  W  to 
build  files 

h.  Atomic  is  considered  collection  containing  .ps  .graph  .imp.psdl  .spec.psdl  and  .a  file(s) 
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APPENDIX  C 
TESTING  AND  EVALUATION 

A.  NOTES  ON  TESTING  AND  EVALUATION 

For  functions  which  return  no  visible  output,  the  successful  completion  is  marked  by 
the  standard  output  of: 

CAPS  Engineering  Design  Database  1991(c)  WP.D.A.L.G 

Three  Prototypes  are  inserted  into  the  Engineering  Database.  These  include  one 
Command  and  Control  Application  (c3i)  and  two  classroom  applications  (FishFarm  and 
Robot).  The  purpose  for  inserting  three  applications  is  to  test  working  with  several 
prototypes.  After  demonstrating  these  functions,  the  remaining  functions  are  run  against  the 
more  comprehensive  prototype  created  by  the  CAPS  system  called  c3i.  This  prototype  was 
selected  due  to  it's  ability  to  fully  exercise  the  "graph  walking"  capabilities  of  the  model. 

B.  TEST  SCRIPT 


#  !/usr/local/bin/tcsh 
clear 

echo  "*NAVALPOSTGRADUATESCHOOL*" 

echo  "  *  Software  Engineering  *" 

echo  "  *  Design  Database  *" 

echo  "  *  Thesis  Advisor  Dr.  Luqi 

echo  "  *  Written  by:  Drew  Dwyer  and  Garry  Lewis  *" 

echo  "  *  Design  Database  vl.l  WP.D.A.L.G  .  *" 

echo  "  " 

echo  "  " 

echo  -n  "Press  Return  to  begin  demonstration  " 

set  a=($<) 

clear 

echo  "Running  main  ddb53  pip  c3i ..." 

echo  "  " 

main  ddb53  pip  c3i 

echo  "Running  main  ddb53  pip  fishfarm  'Drew  Dwyer' ..." 

echo  "  " 

main  ddb53  pip  fishfarm  "Drew  Dwyer" 

echo  "Running  main  ddb53  pip  robot  'Garry  W.  Lewis'  filel  ..." 

echo  "  " 

main  ddb53  pip  robot  "Garry  W.  Lewis"  filel 

echo  "  " 
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echo  -n  "INSERT  PROTOTYPE  test  complete ...  Press  Return  to  continue  " 
set  a=($<) 
echo  "  " 
clear 

echo  "Running  main  ddb53  pgd  robot .. .returns  description  to  screen..." 

echo  "  " 

main  ddb53  pgd  robot 

echo  "Running  main  ddb53  pud  robot  file2  ...updates  description ..." 

echo"" 

main  ddb53  pud  robot  file2 

echo  "Running  main  ddb53  pgd  robot .. .returns  the  new  description." 

echo  "  " 

main  ddb53  pgd  robot 

echo"" 

echo  -n  "GET/UPDATE  PROTOTYPE  DESCRIPTION  test  complete ...  Press  Return  to  continue 

set  a=($<) 

clear 

echo  "Running  main  ddb53  prd  c3i " 

echo  "  " 

main  ddb53  prd  c3i 

echo  "  " 

echo  -n  "RETRIEVE  PROTOTYPE  DATE  test  complete  ...  Press  Return  to  continue  " 

set  a=($<) 

clear 

echo  "Running  main  ddb53  pul  robot  Larry  Williamson  ..." 

main  ddb53  pul  robot  "Larry  Williamson" 

echo"" 

echo  "  " 

echo  "  " 

echo  "Running  main  ddb53  pgl  robot" 

main  ddb53  pgl  robot 

echo  "  " 

echo  -n  "UPDATE/GET  PROTOTYPE  test  complete  ...  Press  Return  to  continue  " 

set  a=($<) 

clear 


echo  "Running  main  ddb53  pds  c3i ....' 

echo  "  " 

main  ddb53  pds  c3i 

echo  -n  "Press  Return  to  continue  " 

set  a=($<) 

clear 


echo  "Running  main  ddb53  pds  fishfarm  ... 

echo  "  " 

main  ddb53  pds  fishfarm 

echo  -n  "Press  Return  to  continue  " 

set  a=($<) 

clear 


echo  "Running  main  ddb53  pds  robot ...' 

echo  "  " 

main  ddb53  pds  robot 
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echo  "  " 

echo  -n  "DUMP  PROTOTYPE  SUMMARY  test  complete  ...  Press  Return  to  continue  " 

set  a=($<) 

clear 

echo  "  " 

echo  "Running  main  ddb53  pin  ..." 

echo  "  " 

main  ddb53  pin 

echo  "  " 

echo  -n  "LIST  PROTOTYPE  NAMES  test  complete  ...  Press  Return  to  continue  " 

set  a=($<) 

clear 


echo  "Running  main  ddb53  cic  c3i  unbc ..." 

echo  "  " 

main  ddb53  cic  c3i  unix 

echo  "  " 

echo  "Running  main  ddb53  cic  c3i  dos  'Drew  Dwyer'  ..." 

main  ddb53  cic  c3i  dos  "Drew  Dwyer" 

echo  "  " 

echo  "Running  main  ddb53  cic  c3i  spare  'Garry  Lewis'  filel  ..." 

main  ddb53  cic  c3i  spare  "Garry  Lewis"  filel 

echo"" 

echo  -n  "INSERT  CONFIGURATION  test  complete...  Press  Return  to  continue  " 

set  a=($<) 

clear 


echo  "Running  main  ddb53  cum  c3i  dos  'Marty  Shoppenheimer' ..." 

main  ddb53  cum  c3i  dos  "Marty  Shoppenheimer" 

echo  "  " 

echo  -n  "UPDATE  CONFIGURATION  MANAGER  test  complete...  Press  Return  to  continue 

set  a=($<) 

clear 

echo  "Running  main  ddb53  eds  c3i  unbc ..." 

main  ddb53  eds  c3i  unix 

echo  -n  "Press  Return  to  continue  " 

set  a=($<) 

clear 


echo  "Running  main  ddb53  eds  c3i  dos 

main  ddb53  eds  c3i  dos 

echo  -n  'Tress  Return  to  continue  " 

set  a=($<) 

clear 


echo  "Running  main  ddb53  eds  c3i  spare  ..." 

main  ddb53  eds  c3i  spare 

echo  -n  "DUMP  CONFIGURATION  SUMMARY  test  complete...  Press  Return  to  continue 

set  a=($<) 

clear 

echo  "Running  main  ddb53  cgd  c3i  spare  ..." 

echo  "  " 

main  ddb53  cgd  c3i  spare 
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echo  -n  "Press  Return  to  continue 

set  a=($<) 

clear 


echo  "Running  main  ddb53  cud  c3i  spare  file2  ...' 

echo  "  " 

main  ddbS3  cud  c3i  spare  file2 

echo  -n  "Press  Return  to  continue  " 

set  a=($<) 

clear 


echo  "Running  main  ddb53  cgd  c3i  spare  ..." 

main  ddbS3  cgd  c3i  spare 

echo  -n  "CONFIGURATION  DUMP  SUMMARY  test  complete...  Press  Return  to  continue 

set  a=($<) 

clear 


echo  "Running  main  ddb53  cda  c3i  spare ..." 

echo  "  " 

main  ddb53  cda  c3i  spare 

echo  "  " 

echo  -n  "GET  CONFIGURATION  DATE  test  complete...  Press  Return  to  continue' 

set  a=($<) 

clear 


echo  "Running  main  ddb53  cpl  c3i  spare  'This  is  the  first  Post  to  Sparc  Log'  " 

echo  "  " 

main  ddb53  cpl  c3i  spare  "This  is  the  first  Post  to  Sparc  Log" 

echo"" 

echo  "Now  check  it  to  see  that  it's  posted..." 

echo  "  " 

echo  "Running  ddb53  egl  c3i  spare  ..." 

echo  "  " 

main  ddb53  egl  c3i  spare 

echo  -n  "Press  Return  to  continue  " 

set  a=($<) 

clear 

echo  "Add  another  line  to  the  log  ..." 

echo  "Running  main  ddb53  cpl  c3i  spare  'This  is  the  second  Post  to  Sparc  Log'  " 

echo  "  " 

main  ddb53  cpl  c3i  spare  "This  is  the  second  Post  to  Sparc  Log" 

echo  "  " 

echo  "Show  the  results  ..." 

echo  "Running  ddb53  egl  c3i  spare  ..." 

echo  "  " 

main  ddb53  egl  c3i  spare 

echo  "  " 

echo  -n  "POST/GET  CONFIGURATION  LOG  test  complete...  Press  Return  to  continue' 

set  a=($<) 

clear 


echo  "  " 

echo  "Running  main  ddb53  cgm  c3i  dos  ...' 

main  ddb53  cgm  c3i  dos 
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echo  "Now  we'll  change  the  manager  to  'Kelly  Mcdowell'  " 

echo  "  " 

echo  "  " 

echo  "Running  main  ddb53  cum  c3i  dos  'Kelly  Mcdowell' ..." 

main  ddb53  cum  c3i  dos  "Kelly  Mcdowell" 

echo  "  " 

echo"" 

echo  "Now  make  sure  it  posted..." 

echo  "Running  main  ddb53  cgm  c3i  dos  ..." 

main  ddb53  cgm  c3i  dos 

echo"" 

echo  -n  "GET/UPDATE  CONFIGURATION  MANAGER  test  complete...  Press  Return  to  continue' 

set  a=($<) 

clear 

echo  "Running  main  ddb53  cln  c3i ..." 

main  ddb53  cln  c3i 

echo  "  " 

echo  -n  "LIST  CONFIGURATION  NAMES  test  complete...  Press  Return  to  continue" 

set  a=($<) 

clear 

echo  "We  now  move  on  to  the  actual  loading  of  the  ONTOS  Database.  " 

echo  "  " 

echo  "Running  main  ddb53  vaa  c3i  c3i ..." 

main  ddb53  vaa  c3i  c3i 

echo  "  " 

echo  "Add  c3i  test  complete...  Now  we'll  add  a  different  Prototype  " 

echo  -n  "called  fishfarm.  Press  Return  to  continue..." 

set  a=($<) 

clear 


setenv  PROTOTYPE  /n/gemini/work/dwyer/SCCS/fish 

echo  "Running  main  ddb53  vaa  fishfarm  fishfarm  ..." 

main  ddb53  vaa  fishfarm  fishfarm 

echo"" 

echo  "Add  fishfarm  test  complete...  Now  we'll  add  a  different  Prototype 

echo  -n  "called  robot.  Press  Return  to  continue..." 

set  a=($<) 

clear 


setenv  PROTOTYPE  /n/gemini/work/dwyer/SCCS/robot 

echo  "Running  main  ddb53  vaa  robot  robot ..." 

main  ddb53  vaa  robot  robot 

echo  "Add  robot  test  complete  ...  Press  return  to  continue" 

set  a=($<) 

clear 

setenv  PROTOTYPE  /n/gemini/work/dwyer/caps/proto 

echo  "  " 

echo  "Now  show  the  PLL  command  to  reflect  that  each  Prototype  has  a  default  version' 

echo"" 

echo  "Running  ddb53  pll ..." 

main  ddb53  pll 

echo  -n  "LOAD  V_OBJECT  and  SUBTREE  test  complete...  Press  Return  to  continue" 

set  a=($<) 

clear 
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echo  "Running  main  ddb53  vlo  c3i  c3i ..." 

echo  "  " 

main  ddb53  vlo  c3i  c3i 

echo 

echo  -n  "Press  return  to  continue ..." 

set  a=($<) 

clear 

echo  "Running  main  ddb53  vll  c3i  c3i ..." 

echo  "  " 

main  ddb53  vll  c3i  c3i 

echo  -n  "Press  Return  to  continue  ..." 

set  a=($<) 

clear 

echo  "Running  main  ddb53  vlo  c3i  c3i.comms_interface  ..." 

echo  "  " 

main  ddb53  vlo  c3i  c3i.comms_interface 

echo  -n  "Press  Return  to  continue  ..." 

set  a=($<) 

clear 

echo  "Running  main  ddb53  vll  c3i  c3i.comms_interface  ..." 

echo  "  " 

main  ddb53  vll  c3i  c3i.comms_interface 

echo"" 

echo  -n  "V_OBJECT  LIST/LONG  LIST  OPERATORS  test  complete...  Press  Return  to  continue" 

set  a=($<) 

clear 

echo  "Running  main  ddb53  vlo  c3i  c3i.comms_interface.resolve_outgoing_messages  ..." 

echo  "  " 

main  ddb53  vlo  c3i  c3i.comms_interface.resolve_outgoing_messages 

echo  -n  "Press  Return  to  continue  ..." 

set  a=($<) 

clear 

echo  "Running  main  ddb53  vll  c3i  c3i.comms_interface.resolve_outgoing_messages  ..." 

echo  "  " 

main  ddb53  vll  c3i  c3i.comms_interface.resolve_outgoing_messages 

echo"" 

echo  -n  "V_OBJECT  LIST/LONG  LIST  OPERATORS  test  complete...  Press  Return  to  continue" 

set  a=($<) 

clear 

echo  "Running  main  ddb53  CAO  c3i  unix  c3i ..." 

echo"" 

main  ddb53  cao  c3i  unix  c3i 

echo  "  " 

echo  "Running  main  ddb53  cao  c3i  dos  c3i.user_interface  " 

echo  "  " 

main  ddb53  cao  c3i  dos  c3i.user_interface 

echo  "Running  main  ddb53  cao  c3i  spare  c3i.comms_interface.resolve_outgoing_messages" 

echo"" 

main  ddb53  cao  c3i  spare  c3i.comms_interface.resolve_outgoing_messages 

echo  "  " 

echo  -n  "ATTACH  OPERATORS  to  a  CONFIGURATION  test  complete...  Press  Return  to  continue" 

set  a=($<) 

clear 


64 


echo  "Running  main  ddb53  clo  c3i  unix  ... 

main  ddb53  clo  c3i  unix 

echo  "  " 

echo  -n  "Press  Return  to  continue" 

set  a=($<) 

clear 


echo  "Running  main  ddb53  clo  c3i  dos 

echo 

main  ddb53  clo  c3i  dos 

echo  "  " 

echo  -n  "Press  Return  to  continue" 

set  a=($<) 

clear 


echo  "Running  main  ddb53  clo  c3i  spare  ..." 

echo  "  " 

main  ddb53  clo  c3i  spare 

echo  "  " 

echo  -n  "CONFIGURATION  LIST  OPERATOR  test  complete...  Press  Return  to  continue" 

set  a=($<) 

clear 

echo  "Running  main  ddb53  ell  c3i  unix  ..." 

echo"" 

main  ddb53  ell  c3i  unix 

echo  "  " 

echo  -n  "Press  Return  to  continue" 

set  a=($<) 

clear 

echo  "Running  main  ddb53  ell  c3i  dos ..." 

echo  "  " 

main  ddb53  ell  c3i  dos 

echo"" 

echo  -n  "Press  Return  to  continue" 

set  a=($<) 

clear 

echo  "Running  main  ddb53  ell  c3i  spare  ..." 

main  ddb53  ell  c3i  spare 

echo"" 

echo  -n  "CONFIGURATION  LONG  LIST  OPERATORS  test  complete...  Press  Return  to  continue' 

set  a=($<) 

clear 

echo  "Running  main  ddb53  cdt  c3i  unix  r ..." 

rm  -f  /n/gemini/work/dwyer/caps/proto/* 

echo  "  " 

main  ddb53  cdt  c3i  unix  r 

echo"" 

echo  -n  "Examine  the  directory  now  and  you'll  see  the  checked  out  subtree ..." 

set  a=($<) 

clear 
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echo  "Running  main  ddb53  cdt  c3i  unix  w  ...Dumping  Tree" 

rm  -f  /n/gemini/work/dwyer/caps/proto/* 

echo"" 

main  ddb53  cdt  c3i  unix  w 

echo"" 

echo  -n  "Examine  the  directory  now  and  you'll  see  the  checked  out  subtree 

set  a=($<) 

clear 


echo  "Running  main  ddb53  crl  c3i  unix  ..  .Resetting  Locks" 

main  ddbS3  crl  c3i  unix 

echo  "Running  main  ddb53  cdt  c3i  dos  r  ...Dumping  Tree" 

rm  -f  /n/gemini/work/dwyer/caps/proto/* 

echo  "  " 

main  ddb53  cdt  c3i  dos  r 

echo"" 

echo  -n  "Examine  the  directory  now  and  you'll  see  the  checked  out  subtree  ... 

set  a=($<) 

clear 


echo  "Running  main  ddb53  cdt  c3i  spare  w  ...Dumping  Tree" 

rm  -f  /n/gemini/work/dwyer/caps/proto/* 

echo  "  " 

main  ddb53  cdt  c3i  spare  w 

echo  "  " 

echo  "  " 

echo  "Examine  the  directory  now  and  you'll  see  the  checked  out  subtree  ..." 

echo  -n  "Press  return  to  continue  " 

set  a=($<) 

clear 

11 11  it  tt  11  u  li  liu  u  ±1  u  u  u  n  11  it  n  u  mi  11  u  u  n  it  u  11  ti  n  n  11  it  11  u  n  n  n  n  u  it  n  u  u  it  n  11  it  u 

■  ■    ■■  II  ^rtr-WryT  II   II   TTTTftTfTtTTTTTfTtTtn  11  TT  TT  TT  TT  If  TT  TT  TT  TT  TTTTTtrttT  TT  tt  _t_f  tt  n   TTTT  IT  XI  IT  II  U  TT 

TT  T7  Ti  TT  ft  TJ  ft  T7  it  fTTTfT  it  it  tt  TTTTTf  TT  TTTT  TTTT  TTTT  TTTT  TTTT  TT  TTTT TTTTTTTT  TT  TTTT  TT  TT  TT  TT  TT  TT  TT  TT  TT  TT 

# 

#VERSIONTNG  STARTS  HERE ... 

# 

TTTTTT  TT  TT  TTTT  TTTrTTTT  TT  TT  TTTT  TTTT  TTTT  TTTT  TTTT  TTTT  TTTT  TT  TTTTTTTT^ 

echo  "Running  main  ddb53  crl  c3i  unix  ...Resetting  Locks" 

main  ddb53  crl  c3i  spare 

echo  "Running  main  ddb53  cdt  c3i  unix  w  ...Dumping  Tree  for  UPDATE" 

rm  -f  /n/gemini/work/dwyer/caps/proto/* 

main  ddb53  cdt  c3i  unix  w 

echo  "  " 

echo  "  " 

echo"" 

echo  -n  "CONFIGURATION  DUMP  TREE  test  complete  ...  Press  Return  to  continue' 

set  a=($<) 

clear 


echo  "Simulating  updates  by  TOUCHING  files  " 

echo  "  " 

echo  "  Running  touch  c3i.ps ..." 

touch  /n/gemini/work/dwyer/caps/proto/c3i.ps 

echo"" 

echo  "  Running  touch  c3i.user_interface.imp.psdl ..." 

echo  "  " 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.imp.psdl 
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echo  "  " 

echo  "  Running  touch  c3i.user_interface.message_arrival_panel.spec.psdl ..." 

touch  /n/gemini/work/d  wy  er/caps/proto/c  3i  .user_interface.  message_arri  val_panel  .spec.psdl 

echo"" 

echo  "  Running  touch  c3i.user_interface_emergency_status_screen.imp.psdl ..." 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.emergency_status_screen.imp.psdl 

echo"" 

echo"" 

echo  "  " 

echo  "We  have  just  simulated  editing  several  operators...." 

echo  -n  "Press  Return  to  continue" 

set  a=($<) 

clear 

echo  "Running  a  CONFIGURATION  update  now  (Posting  version  #2  of  c3i) ..." 

echo"" 

echo  "Running  main  ddb53  caa  c3i  unix  ..." 

echo"" 

main  ddb53  caa  c3i  unix 

echo  "  " 

echo  "  " 

echo  "  " 

rm  -f  /n/gemini/work/dwyer/caps/proto/* 

echo  -n  "CONFIGURATION  UPDATE  TREE  test  complete  ...  Press  Return  to  continue" 

seta=($<) 

clear 

echo  "  " 

echo  "  " 

echo  "  " 

echo  "Show  the  versions  of  the  root  vobject ..." 

echo  "Running  ddb53  vgv  c3i  c3i ..." 

echo  "  " 

main  ddb53  vgv  c3i  c3i 

echo"" 

echo  "  " 

echo  "Show  the  versions  of  the  user_interface  vobject ..." 

echo  "  " 

echo  "Running  ddb53  vgv  c3i  c3i.user_interface  ..." 

echo  "  " 

main  ddb53  vgv  c3i  c3i.user_interface 

echo"" 

echo  "Show  the  versions  of  the  emergency_status_screen  vobject ..." 

echo  "  " 

echo  "Running  ddb53  vgv  c3i  c3i.user_interface.emergency_status_screen  ..." 

echo  "  " 

main  ddb53  vgv  c3i  c3i.user_interface.emergency_status_screen 

echo  "  " 

echo  "  " 

echo  "Show  the  version  of  an  OPERATOR  which  DID  NOT  version  ..." 

echo"" 

echo  "Running  ddb53  vgv  c3i  c3i.comms_interface  ..." 

echo  "  " 

main  ddb53  vgv  c3i  c3i.comms_interface 

echo  -n  "Press  Return  to  continue" 

set  a=($<) 

clear 

echo  "  " 
echo  "  " 
echo  "Running  main  ddb53  vdt  c3i  c3i  w  " 
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echo  "  " 

main  ddb53  vdt  c3i  c3i  w 

echo  "Now  updating  modules  ..." 

echo  "  " 

echo  "  Running  touch  c3i.ps ..." 

touch /n/gemini/work/dwyer/caps/proto/c3i.ps 

echo  "  " 

echo  "  Running  touch  c3i.user_interface.imp.psdl ..." 

echo"" 

touch  Ai/gemini/work/dwyer/caps/proto/c3i.user_interface.imp.psdl 

echo  "  " 

echo  "  Running  touch  c3i.user_interface.message_arrival_panel.spec.psdl ..." 

touch  /n/gemini/work/dwyer/caps/proto/c3i.user_interface.message_arrival_panel.spec.psdl 

echo"" 

echo  "  Running  touch  c3i.user_interface_emergency_status_screen.imp.psdl ..." 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.emergency_status_screen.imp.psdl 

echo  "  " 

echo  "  " 

echo  "  " 

echo  "We  have  just  simulated  editing  several  operators...." 

echo  "  " 

echo  "  " 

echo  "Now  Posting  Version  3  to  the  database  ..." 

echo"" 

echo  "  " 

echo  "Running  main  ddb53  vaa  c3i  c3i " 

echo  "  " 

main  ddb53  vaa  c3i  c3i 

echo  -n  "Press  Return  to  continue  " 

rm  -f  /n/gemini/work/dwyer/caps/proto/* 

set  a=($<) 

clear 

echo"" 

echo  "  " 

echo  "Now  check  the  versions  of  c3i  in  the  database  " 

echo"" 

echo  "  " 

echo  "Running  main  ddb53  vgv  c3i  c3i ..." 

echo  "  " 

main  ddb53  vgv  c3i  c3i 

echo  "  " 

echo  "  " 

echo  "Show  the  versions  of  the  user_interface  vobject ..." 

echo"" 

echo  "Running  ddb53  vgv  c3i  c3i.user_interface  ..." 

echo  "  " 

main  ddb53  vgv  c3i  c3i.user_interface 

echo"" 

echo  "Show  the  versions  of  the  emergency_status_screen  vobject ..." 

echo  "  " 

echo  "Running  ddb53  vgv  c3i  c3i.user_interface.emergency_status_screen  ..." 

echo"" 

main  ddb53  vgv  c3i  c3i.user_interface.emergency_status_screen 

echo  "  " 

echo  "  " 

echo  "Show  the  version  of  an  OPERATOR  which  DID  NOT  version  ..." 

echo  "  " 

echo  "Running  ddb53  vgv  c3i  c3i.comms_interface  ..." 
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4C    It 
C<    Ct 


echo  "  " 

main  ddb53  vgv  c3i  c3i.comms_interface 

echo  -n  "Show  Versions  (VGV)  test  complete  ...Press  Return  to  continue" 

set  a=($<) 

clear 

echo  "Running  main  ddb53  vud  c3i  c3i.user_interface  file3  ..." 

echo"" 

main  ddb53  vud  c3i  c3i.user_interface  file3 

echo"" 

echo"" 

echo  "Here  is  the  description  entered  to  that  operator ..." 

echo  "  " 

echo  "Running  main  ddb53  vgd  c3i  c3i.user_interface  ..." 

echo"" 

main  ddb53  vgd  c3i  c3i.user_interface 

echo"" 

echo  "  " 

echo  -n  "Press  Return  to  continue  ..." 

set  a=($<) 

clear 

echo  "Now  let's  update  an  OLDER  version  of  an  operator  previously  stored  ...' 

echo  "Running  main  ddb53  vud  c3i  c3i.user_interface  file4  1  ..." 

echo  "  " 

main  ddb53  vud  c3i  c3i.user_interface  file4  1 

echo 

echo 

echo  "Here  is  the  description  entered  to  that  operator ..." 

echo  "  " 

echo  "Running  main  ddb53  vgd  c3i  c3i.user_interface  1 ..." 

echo"" 

main  ddb53  vgd  c3i  c3i.user_interface  1 

echo"" 

echo  "  " 

echo  -n  "UPDATE  VOBJECT/OPERATOR  (VUD)  test  complete...  Press  Return  to  continue  ...' 

set  a=($<) 

clear 

echo  "Now  attach  the  configurations  to  different  versions  of  ROOT  VOBJECT  ..." 

echo  "Running  main  ddb53  cao  c3i  unix  c3i  1  " 

echo"" 

main  ddb53  cao  c3i  unix  c3i  1 

echo  "Running  main  ddb53  cao  c3i  dos  c3i  2  " 

echo  "  " 

main  ddb53  cao  c3i  dos  c3i  2 

echo  "Running  main  ddb53  cao  c3i  spare  c3i  3  " 

echo  "  " 

main  ddb53  cao  c3i  spare  c3i  3 

echo  -n  "Press  Return  to  continue  " 

set  a=($<) 

clear 

echo  "One  Last  list  to  verify  everythings  in  order ..." 

echo"" 

echo  "Press  Return  to  continue  ..." 

set  a=($<) 

clear 

echo  "Running  main  ddb53  clo  c3i  unix" 
echo  "  " 
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main  ddb53  clo  c3i  unix 

echo  -n  "Press  Return  to  continue  ..." 

set  a=($<) 

clear 

echo  "Running  main  ddb53  clo  c3i  dos" 

echo"" 

main  ddb53  clo  c3i  dos 

echo  -n  "Press  Return  to  continue  ..." 

set  a=($<) 

clear 

echo  "Running  main  ddb53  clo  c3i  spare' 

echo  "  " 

main  ddbS3  clo  c3i  spare 

echo  -n  "Press  Return  to  continue  ..." 

set  a=($<) 

clear 

echo  "  " 

echo' 

echo' 

echo' 

echo4 

echo' 

echo' 

echo' 

echo' 

echo' 

echo' 


*NAVALPOSTGRADUATESCHOOL*" 

*  (T  H  E  E  N  D)  *" 

*  Software  Engineering  *" 

*  Design  Database  *" 

*  Thesis  Advisor  Dr.  Luqi 

*  By  Drew  Dwyer  and  Garry  Lewis 

*  Design  Database  vl.l  WP.D.A.L.G  *" 
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C.     TEST  RESULTS 

********************************************************************** 

echo"*NAVALPOSTGRADUATESCHOOL*" 

echo  "  *  Software  Engineering  *" 

echo  "  *  Design  Database  *" 

echo  "  *  Thesis  Advisor  Dr.  Luqi 

echo  "  *  Written  by:  Drew  Dwyer  and  Garry  Lewis  *" 

echo  "  *  Design  Database  vl.l  WP.D.A.L.G  .  *" 

********************************************************************** 


Press  Return  to  begin  demonstration 
Running  main  ddb53  pip  c3i ... 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Running  main  ddb53  pip  fishfarm  'Drew  Dwyer' 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Running  main  ddb53  pip  robot  'Garry  W.  Lewis'  filel 


CAPS  Engineering  Design  Database     199 1  (c)  WP.D.A.L.G 
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INSERT  PROTOTYPE  test  complete  ...  Press  Return  to  continue 
Running  main  ddb53  pgd  robot  ...returns  description  to  screen... 


********************************************** 
********************************************** 

UitUUUHM  UMM  U  iUUMUMUt  U 

tt  rr  it  rr  tt  it  tt  tttttt  tt  tttttttttttttt  tt 

###### 
###### 

JUMtMM  U  M  jHHUtH  U 

ttTTtTTTtT    Tt    Tt    tTTTTIT?  ft    TT 

##### 
##### 

TTTTTT    TT  TTTTTT  TTTTTT    TTTTTTTTTTTTTT    TTTTTTTTTr 


This  is  a  simple  text  file 

to  test  Drew  and  Garry's  Prototype  Program. 


********************************************** 
********************************************** 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 
Running  main  ddb53  pud  robot  file2  ...updates  description  ... 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 
Running  main  ddb53  pgd  robot  ...returns  the  new  description. 


********************************************** 
********************************************** 

#######  ###  #  #######  ##### 

###### 

##### 

#####  #  #  #####  ##### 

##### 

##### 

#UMM  UttitUtttttt  iWiittttitU  HtttttiH+tH 
TTTtTT    Tt  TTTTTT  TTTTTT   TTTTTTTTTTTTTT    TtTtTTTt  TTTTTT 


This  file  is  used  to  update  the 
DESCRIPTION  ATTRIBUTE 
in  the  Design  Database. 


<«  FILE  UPDATED  SUCCESSFULLY  »» 

********************************************** 


72 


4,^*************  ******************************* 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

GET/UPDATE  PROTOTYPE  DESCRIPTION  test  complete  ...  Press  Return  to  continue 
Running  main  ddb53  prd  c3i 
Tue  Sep  3  11:05:42  1991 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

RETRIEVE  PROTOTYPE  DATE  test  complete  ...  Press  Return  to  continue 
Running  main  ddb53  pul  robot  Larry  Williamson  ... 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Running  main  ddb53  pgl  robot 
Larry  Williamson 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

UPDATE/GET  PROTOTYPE  test  complete  ...  Press  Return  to  continue 

Running  main  ddb53  pds  c3i .... 

Creadon  Date:  Tue  Sep  3  11:05:42  1991 

Leader: 
Default  Config: 

<No  configurations  are  contained  in  this  prototype> 

Prototype  Description  follows: 


<This  prototype  does  not  contain  a  description> 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Press  Return  to  continue 

Running  main  ddb53  pds  fishfarm  ... 
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Creation  Date:  Tue  Sep  3  11:05:47  1991 

Leader:  Drew  Dwyer 
Default  Config: 

<No  configurations  are  contained  in  this  prototype> 

Prototype  Description  follows: 

<This  prototype  does  not  contain  a  descriptioro 

CAPS  Engineering  Design  Database     199 1  (c)  WP.D. A.L.G 

Press  Return  to  continue 

Running  main  ddb53  pds  robot ... 

Creadon  Date:  Tue  Sep  3  11:05:50  1991 

Leader:  Larry  Williamson 
Default  Config: 

<No  configurations  are  contained  in  this  prototypo 

Prototype  Description  follows: 


********************************************** 
********************************************** 

#######  ###  #  #######  ##### 

###### 

##### 

#####  #  #  #####  ##### 

##### 

##### 

#UUM  UUUMtitiU  ttUttUUtttt  ttttttttttttti 


This  file  is  used  to  update  the 
DESCRIPTION  ATTRIBUTE 
in  the  Design  Database. 

<«  FILE  UPDATED  SUCCESSFULLY  »» 

********************************************** 
********************************************** 


CAPS  Engineering  Design  Database    1991(c)  WP.D.A.L.G 

DUMP  PROTOTYPE  SUMMARY  test  complete  ...  Press  Return  to  continue 
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Running  main  ddb53  pin 

c3i 

fishfarm 

robot 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

LIST  PROTOTYPE  NAMES  test  complete  ...  Press  Return  to  continue 
Running  main  ddb53  cic  c3i  unix  ... 

CAPS  Engineering  Design  Database     1 99 1  (c)  WP.D. A.L.G 

Running  main  ddb53  cic  c3i  dos  'Drew  Dwyer' ... 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Running  main  ddb53  cic  c3i  spare  'Garry  Lewis'  filel  ... 
CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

INSERT  CONFIGURATION  test  complete...  Press  Return  to  continue 
Running  main  ddb53  cum  c3i  dos  'Marty  Shoppenheimer' ... 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

UPDATE  CONFIGURATION  MANAGER  test  complete...  Press  Return  to  continue 

Running  main  ddb53  eds  c3i  unix  ... 
Creation  Date:  Tue  Sep  3  11:08:26  1991 

Manager: 

Version  Number:  NONE 

Default  VOBJECT  Name 


<This  configuration  has  not  been  assigned  a  V_OBJECT> 
Configuration  Description  follows: 

<This  configuration  does  not  contain  a  description> 
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CAPS  Engineering  Design  Database    1991(c)  WP.D.AL.G 


Press  Return  to  continue 

Running  main  ddb53  cds  c3i  dos  ... 
Creation  Date:  Tue  Sep  3  11:08:28  1991 

Manager:  Marty  Shoppenheimer 
Version  Number:  NONE 

Default  VOBJECT  Name 


<This  configuration  has  not  been  assigned  a  V_OB  JECT> 
Configuration  Description  follows: 

<This  configuration  does  not  contain  a  description> 

CAPS  Engineering  Design  Database     199 1  (c)  WP.D. A.L.G 

Press  Return  to  continue 

Running  main  ddb53  cds  c3i  spare  ... 
Creadon  Date:  Tue  Sep  3  11:08:31  1991 

Manager:  Garry  Lewis 
Version  Number:  NONE 

Default  VOBJECT  Name 


<This  configuration  has  not  been  assigned  a  V_OBJECT> 
Configuration  Description  follows: 


********************************************** 
********************************************** 

HttMttUtiU  HUM  tt  tttttttttttttt  it 

TT  FT  rTTTTTTTTr    TTTTtT    Tt    tTTtTj  TtTttttt   TT 

###### 
###### 

it  It  iJ  II  U    XI    11    1AA11AA1  IX    11 

TT  n  tTTTTT      TT      Tf      TT  *l  ft  TTTT      TT 

n  tin  n  ti  tt  tt  ttttTt  ti  Tt  tt 

##### 
##### 
#  ###  #######  #######  ##### 


This  is  a  simple  text  file 

to  test  Drew  and  Garry's  Prototype  Program. 


********************************************** 
********************************************** 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 
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DUMP  CONFIGURATION  SUMMARY  test  complete...  Press  Return  to  continue 
Running  main  ddb53  cgd  c3i  spare  ... 


********************************************** 
********************************************** 

UtttitttittH  HUM  n  uumutim  u 

TTTTTT  TT  TTTTTT    TTTTTT    TT    TTTTTT  Tr  H  FT  tl    TT 

###### 
###### 

11  II  II  II  U    XI    M    111L1111  U    11 

TT  TT  f  T  TT  TT      TT     TT     rT  11  TT  TT  TT     TT 

Tl  TTTJ  11  Tt    TT    TT    TT  TT  TT  TT  TT    TT 

##### 
##### 

#UUU  UUUMUitU  HUiiUMUit  tiitUUH 
TTTTTT    TT  TT  TT  TT  TT  FT  TT    TTTTTT TTTTTTtT    TTTT  TTTTTT 


This  is  a  simple  text  file 

to  test  Drew  and  Garry's  Prototype  Program. 


********************************************** 
********************************************** 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Press  Return  to  continue 

Running  main  ddb53  cud  c3i  spare  file2  ... 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Press  Return  to  continue 

Running  main  ddb53  cgd  c3i  spare  ... 

********************************************** 
********************************************** 

#######  ###  #  #######  ##### 

###### 

##### 

n nil TTjT  ff  ff  fffffffffr  fffffffrfr 

##### 

##### 

#MHtt  UUUMUUtt  HHHHUHH  tititttitttiM 
TTTTTT    TTTT  TTTT  TT  TTTT    TTTT  TTTTTT  TTTT    TTTT  TTTT  TTTTTT 


This  file  is  used  to  update  the 
DESCRIPTION  ATTRIBUTE 
in  the  Design  Database. 
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<«  FILE  UPDATED  SUCCESSFULLY  »» 

********************************************** 
********************************************** 


CAPS  Engineering  Design  Database     1991(c)  WP.D.AL.G 

CONFIGURATION  DUMP  SUMMARY  test  complete...  Press  Return  to  continue 
Running  main  ddb53  cda  c3i  spare  ... 
Tue  Sep  3  11:08:31  1991 

CAPS  Engineering  Design  Database     1 99 1  (c)  WP.D.AL.G 

GET  CONFIGURATION  DATE  test  complete...  Press  Return  to  continue 
Running  main  ddb53  cpl  c3i  spare  'This  is  the  first  Post  to  Sparc  Log' 

CAPS  Engineering  Design  Database     1991(c)  WP.D.AL.G 

Now  check  it  to  see  that  it's  posted... 
Running  ddb53  egl  c3i  spare  ... 

Tue  Sep  3  11:09:50  1991 

This  is  the  first  Post  to  Sparc  Log 

CAPS  Engineering  Design  Database     1991(c)  WP.D.AL.G 

Press  Return  to  continue 

Add  another  line  to  the  log  ... 

Running  main  ddb53  cpl  c3i  spare  'This  is  the  second  Post  to  Sparc  Log' 

CAPS  Engineering  Design  Database     1991(c)  WP.D.AL.G 


Show  the  results ... 
Running  ddb53  egl  c3i  spare 

Tue  Sep  3  11:09:50  1991 
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This  is  the  first  Post  to  Sparc  Log 

TueSep3  11:09:56  1991 

This  is  the  second  Post  to  Sparc  Log 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

POST/GET  CONFIGURATION  LOG  test  complete...  Press  Return  to  continue 


Running  main  ddb53  cgm  c3i  dos 
Marty  Shoppenheimer 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 
Now  we'll  change  the  manager  to  'Kelly  Mcdowell' 
Running  main  ddb53  cum  c3i  dos  'Kelly  Mcdowell' ... 
CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Now  make  sure  it  posted... 
Running  main  ddb53  cgm  c3i  dos  ... 
Kelly  Mcdowell 


CAPS  Engineering  Design  Database     199 1(c)  WP.D.A.L.G 


GET/UPDATE  CONFIGURATION  MANAGER  test  complete...  Press  Return  to  continue 

Running  main  ddb53  cln  c3i ... 

unix 

dos 

spare 

CAPS  Engineering  Design  Database     1 99 1  (c)  WP.D. Al.G 


LIST  CONFIGURATION  NAMES  test  complete...  Press  Return  to  continue 

We  now  move  on  to  the  actual  loading  of  the  ONTOS  Database. 

Running  main  ddb53  vaa  c3i  c3i ... 

CHECKTN-->  c3i 

CHECKTN~>  c3i.comms_interface 

CHECKIN~>c3i.comms_interface.prepare_periodic_report 
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CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKIN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKTN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKDSf- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN 

CHECKIN 

CHECKIN 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN 

CHECKIN 

CHECKIN 

CHECKIN- 

CHECKIN 


>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
•>c3 
•>c3 
•>c3 
■>c3 
->c3 
->c3 
->c3 
->c3 
->c3 
->c3 
->c3 
>c3 
->c3 
->c3 
->c3 
->c3 
->c3 
->c3 
->c3 


.interface  jesolve_incoming_messages 
_interface.resolve_incoming_messages 
.interface  .resolve_incoming_messages 
.interface.resolve_incoming_messages 
.interface  .resolve_incoming_messages 
.interface  jesolve_outgoing_messages 
.interface  jesolve_outgoing_messages 
.interface  jesolve_outgoing_messages 
.interface  jesolve_outgoing_messages 
.interface  jesolve_outgoing_messages 
_interface.translate_message 
links 


decide_for_archiving 
.decide_for_relaying 
.extract_tracks 
.parse_input_file 

convert_to_text_file 
forward_for_translation 
forward_for_transmission 
.make_routing 


comms 

comms. 

comms 

comms 

comms. 

comms 

comms 

.comms 

.comms. 

.comms. 

.comms. 

.comms_ 

.navigation_system 

.sensor_interface 

.sensor_interface^nalyze_sensor_data 

.sensor_interface.normalize_sensor_information 

.sensor_interface.prepare_sensor_track 

.sensors 

.track_database_manager 

.track_database_manager.monitor_database 

.track_database_manager.update_tracks 

.track_database_manager.update_tracks.add_comms_tracks 

.track_database_manager.update_tracks.add_sensor_track 

.track_database_manager.update_tracks.add_user_track 

.  track_database_manager.update_tracks  .delete_the_track 

.track_database_manager.update_tracks.filter_comms_tracks 

.track_database_manager.update_tracks.fdter_sensor_tracks 

.track_database_manager.update_tracks.monitor_ownship_position 

.track_database_manager.update_tracks.update_the_track 

.user_interface 

.  user_interface  .display_graphic_tracks 

.user_interface.display_tracks 

.user_interface.emergency_status_screen 

.user_interface  .get_modi  fication_data 

.user_interface.get_user_inputs 

.user_interface.intelligence_report_panel 

.user_interface.manage_user_interface 

.user_interface.message_arrival 

.user_interface.message_arrival_panel 

.user_interface.message_editor 

.user_interface.resolution_notice_panel 

.user_interface.status_screen 

.  weapons_interface 

.weapons_sy  stems 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Add  c3i  test  complete...  Now  we'll  add  a  different  Prototype 
called  fishfarm.  Press  Return  to  continue... 

Running  main  ddb53  vaa  fishfarm  fishfarm  ... 

CHECKTN->  fishfarm 

CHECKTN«>  fishfarm.ControLfeeding 

CHECKTN~>  fishfarm  .Control_feeding_times 

CHECKIN— >  fishfarm  .Determine_actual_inlet_valve_setting 

CHECKIN— >  fishfarm  .Determine_actual_ouUet_valve_setting 

CHECKTN->  fishfarm.H20_sensor 

CHECKTN~>  fishfarm  .Determine_desired_inlet_valve_setting_NH3 
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CHECKIN->  fishfarm.Determine_desired_inlet_valve_setting_02 

CHECKIN->  fishfarm. Display _system_status 

CHECKIN-->  fishfarm.Inlet_valve 

CHECKIN-->  fishfarmJSfH3_sensor 

CHECKIN~>  fishfarm  .Outlet_valve 

CHECKIN-->  fishfarm  .ffconsole 

CHECKIN-->  fishfarm  .mylime 

CHECKTN-->  fishfarm  .o2  sensor 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Add  fishfarm  test  complete...  Now  we'll  add  a  different  Prototype 
called  robot.  Press  Return  to  continue... 

Running  main  ddb53  vaa  robot  robot ... 
CHECKTN~>  robot 
CHECKTN~>  robot.  Accelerometer 
CHECKTN-->  roboLCalculate_Position 
CHECKTN-->  roboLFire_Thrusters 
CHECKTN-->  roboLGet_Keys 
CHECKTN->  roboLUpdate_Acceleration 
CHECKTN-->  roboLUpdate_Display 
CHECKTN-->  roboLUpdate_Thrust_Req 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 
Add  robot  test  complete  ...  Press  return  to  continue 

Now  show  the  PLL  command  to  reflect  that  each  Prototype  has  a  default  version 

Running  ddb53  pll ... 

Name:  c3i  Default  Config:  spare  Version:  1 
Name:  fishfarm  Default  Config:  NONE  Version:  1 
Name:  robot  Default  Config:  NONE  Version:  1 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

LOAD  V_OBJECT  and  SUBTREE  test  complete...  Press  Return  to  continue 

Running  main  ddb53  vlo  c3i  c3i  ... 

Operator:  c3i 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.prepare_periodic_report 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 
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Operator:  c3i.comms_interfacejesolve_incoming_messages.decide_for_relaying 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3ixornrns_interfacejesolve_incorning_rnessages.extract_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.comms_interfacejesolve_incoming_messages.parse_input_fde 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.convert_to_text_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.make_routing 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.translate_message 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_links 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.navigation_system 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface.analyze_sensor_data 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface.normalize_sensor_information 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 
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Operator:  c3i.sensor_interface.prepare_sensor_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensors 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.monitor_database 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.add_comms_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.add_sensor_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3  i  .track_database_manager .update_tracks  .add_user_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.delete_the_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.filter_comms_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.filter_sensor_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.monitor_ownship_position 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.update_the_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.display_graphic_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.display_tracks 
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Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.emergency_status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.get_modification_data 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.user_interface.get_user_inputs 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.intelligence_report_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.manage_user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_arrival 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_arrival_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_editor 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.resolution_notice_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.weapons_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.weapons_sy stems 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 
Press  return  to  continue  ... 

84 


Running  main  ddb53  vll  c3i  c3i ... 

Operator:  comms_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  comms_links 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  navigation_system 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  sensor_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  sensors 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  track_database_manager 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  weapons_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  weapons_systems 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     199 1(c)  WP.D.A.L.G 

Press  Return  to  continue  ... 

Running  main  ddb53  vlo  c3i  c3i.comms_interface  ... 

Operator:  c3i.comms_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.prepare_periodic_report 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages.decide_for_archiving 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 
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Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.cornms_interface.resolve_incoming_messages.extract_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacej'esolve_incoming_messages.parse_input_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3 i .com ms_interf ace jesolve_outgoing_messages.con vert_to_text_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.forward_for_transmission 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.make_routing 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.translate_message 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Press  Return  to  continue  ... 

Running  main  ddb53  vll  c3i  c3i.comms_interface ... 

Operator:  prepare_periodic_report 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  resolve_incoming_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  resolve_outgoing_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


Operator:  translate_message 
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Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

V_OBJECT  LIST/LONG  LIST  OPERATORS  test  complete...  Press  Return  to  continue 

Running  main  ddb53  vlo  c3i  c3i.comms_interface.resolve_outgoing_messages  ... 

Operator:  c3i.comms_interfacejesolve_outgoing_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.convert_to_text_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.make_routing 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Press  Return  to  continue ... 

Running  main  ddb53  vll  c3i  c3i.comms_interface.resolve_outgoing_messages 

Operator:  convert_to_text_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  forward_for_translation 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  forward_for_transmission 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  make_routing 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 
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V_OBJECT  LIST/LONG  LIST  OPERATORS  test  complete...  Press  Return  to  continue 
Running  main  ddb53  CAO  c3i  unix  c3i ... 

CAPS  Engineering  Design  Database     1991(c)  WP.D.AL.G 

Running  main  ddb53  cao  c3i  dos  c3i.user_interface 

CAPS  Engineering  Design  Database    1 99 1  (c)  WP.D. AL.G 

Running  main  ddb53  cao  c3i  spare  c3i.comms_interface.resolve_outgoing_messages 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

ATTACH  OPERATORS  to  a  CONFIGURATION  test  complete...  Press  Return  to  continue 

Running  main  ddb53  clo  c3i  unix  ... 

Operator:  c3i 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.prepare_periodic_report 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages.decide_for_archiving 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3 i .com ms_in terfaccresol ve_incom ing_messages.ex tract_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.comms_interfacejesolve_incoming_messages.parse_input_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3  i  .com  ms_interf ace jesol ve_incom  ing_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.convert_to_text_file 
Version:  1 
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Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.forward_for_translation 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.comms_interfacejesolve_outgoing_messages.forward_for_transmission 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.make_routing 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.translate_message 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_links 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.navigation_system 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3  i  .sensorjn  terf ace.anal  y  ze_sensor_data 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface.normalize_sensor_information 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface.prepare_sensor_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensors 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.monitor_database 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.add_comms_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 
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Operator  c3i.track_database_manager.update_tracks.add_sensor_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.add_user_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.delete_the_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.track_database_manager.update_tracks.filter_comms_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.track_database_manager.update_tracks.rilter_sensor_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.monitor_ownship_position 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.update_the_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.display_graphic_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.display_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.emergency_status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.get_modification_data 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.get_user_inputs 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3  i  .user_interface.  intelligence_report_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 
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Operator:  c3i.user_interface.manage_user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_arrival 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_arrival_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_editor 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.resolution_notice_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.weapons_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.weapons_systems 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Press  Return  to  continue 

Running  main  ddb53  clo  c3i  dos  ... 
Operator:  c3i.user_interface 
Version:  1 
Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.display_graphic_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.display_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.emergency_status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 
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Operator:  c3i.user_interface.get_modification_data 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.get_user_inputs 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.intelligence_report_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.user_interface.manage_user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.user_interface.message_arrival 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_arrival_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_editor 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.resolution_notice_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Press  Return  to  continue 

Running  main  ddb53  clo  c3i  spare  ... 

Operator:  c3i.comms_interface.resolve_outgoing_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.forward_for_transmission 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 
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Operator:  c3i.comms_interface.resolve_outgoing_messages.make_routing 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

CONFIGURATION  LIST  OPERATOR  test  complete...  Press  Return  to  continue 

Running  main  ddb53  cil  c3i  unix  ... 

Operator:  comms_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  comms_links 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  navigation_system 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  sensor_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  sensors 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  track_database_manager 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  weapons_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  weapons_systems 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     199 1  (c)  WP.D. A.L.G 

Press  Return  to  continue 
Running  main  ddb53  ell  c3i  dos  ... 
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Operator:  display_graphic_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  display _tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  emergency_status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  get_modification_data 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  get_user_inputs 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  intelligence_report_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  manage_user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  message_arrival 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  message_arrival_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  message_editor 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  resolution_notice_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Press  Return  to  continue 

Running  main  ddb53  ell  c3i  spare  ... 
Operator:  convert_to_text_file 
Version:  1 
Locktime  is:  Wed  Dec  31  16:00:00  1969 


94 


Operator:  forward_for_translation 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  forward_for_transmission 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  make_routing 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     199 1  (c)  WP.D. A.L.G 

CONFIGURATION  LONG  LIST  OPERATORS  test  complete...  Press  Return  to  continue 

Running  main  ddb53  cdt  c3i  unix  r ... 

NODENAME  — >  c3i 
Version:  1 

NODENAME  — >  prepare_periodic_report 
Version:  1 

NODENAME  — >  decide_for_archiving 
Version:  1 

NODENAME  — >  decide_for_relaying 
Version:  1 

NODENAME  —  >  extract_tracks 
Version:  1 

NODENAME  — >  parse_input_file 
Version:  1 

NODENAME  — >  resolve_incoming_messages 
Version:  1 

NODENAME  —  >  convert_to_text_file 
Version:  1 

NODENAME  — >  forward_for_translation 
Version:  1 

NODENAME  — >  forward_for_transmission 
Version:  1 

NODENAME  — >  make_routing 
Version:  1 

NODENAME  — >  resolve_outgoing_messages 
Version:  1 

NODENAME  — >  translate_rnessage 
Version:  1 
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NODENAME  — >  comms_interface 
Version:  1 

NODENAME  — >  comms_links 
Version:  1 

NODENAME  — >  navigation_system 
Version:  1 

NODENAME  — >  analyze_sensor_data 
Version:  1 

NODENAME  — >  normalize_sensor_information 
Version:  1 

NODENAME  — >  prepare_sensor_track 
Version:  1 

NODENAME  — >  sensor_interface 
Version:  1 

NODENAME  — >  sensors 
Version:  1 

NODENAME  — >  monitor_database 
Version:  1 

NODENAME  —  >  add_comms_tracks 
Version:  1 

NODENAME  — >  add_sensor_track 
Version:  1 

NODENAME  — >  add_user_track 
Version:  1 

NODENAME  — >  delete_the_track 
Version:  1 

NODENAME  — >  filter_comms_tracks 
Version:  1 

NODENAME  — >  filter_sensor_tracks 
Version:  1 

NODENAME  — >  monitor_ownship_posilion 
Version:  1 

NODENAME  — >  update_the_track 
Version:  1 

NODENAME  — >  update_tracks 
Version:  1 

NODENAME  — >  track_database_manager 
Version:  1 

NODENAME  — >  display_graphic_tracks 
Version:  1 

NODENAME  — >  display_tracks 
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Version:  1 

NODENAME  — >  emergency_status_screen 
Version:  1 

NODENAME  — >  get_modification_data 
Version:  1 

NODENAME  — >  get_user_inputs 
Version:  1 

NODENAME  — >  intelligence_report_panel 
Version:  1 

NODENAME  — >  manage_user_interface 
Version:  1 

NODENAME  — >  message_arrival 
Version:  1 

NODENAME  — >  message_arrival_panel 
Version:  1 

NODENAME  — >  message_editor 
Version:  1 

NODENAME  — >  resolution_notice_panel 
Version:  1 

NODENAME  — >  status_screen 
Version:  1 

NODENAME  — >  userjnterface 
Version:  1 

NODENAME  — >  weapons_interface 
Version:  1 

NODENAME  — >  weapons_systems 
Version:  1 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Examine  the  directory  now  and  you'll  see  the  checked  out  subtree 

Running  main  ddb53  cdt  c3i  unix  w  ...Dumping  Tree 

NODENAME  — >  c3i 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  prepare_periodic_report 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  decide_fbr_archiving 

Version:  1 
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setworker  -->  to  dwyer 
NODENAME  — >  decide_for_relaying 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  extract_tracks 
Version:  1 

setworker  —  >  to  dwyer 
NODENAME  — >  parse_input_file 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  resolve_incoming_messages 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  convert_to_text_file 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  forward_for_translation 

Version:  1 

setworker  —  >  to  dwyer 

NODENAME  — >  forward_for_transmission 

Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  make_routing 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  resolve_outgoing_messages 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  translate_message 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  comms_interface 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  comms_links 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  navigation_system 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  analyze_sensor_data 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  normalize_sensor_information 

Version:  1 
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setworker  — >  to  dwyer 

NODENAME  — >  prepare_sensor_track 

Vision:  1 

setworker  -->  to  dwyer 
NODENAME  — >  sensor_interface 
Version:  1 

setworker  —  >  to  dwyer 
NODENAME  — >  sensors 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  monitor_database 
Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  add_comms_tracks 
Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  add_sensor_track 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  add_user_track 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  delete_the_track 
Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  filter_comms_tracks 

Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  filter_sensor_tracks 
Version:  1 

setworker  —  >  to  dwyer 

NODENAME  — >  monitor_ownship_position 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  update_the_track 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  update_tracks 
Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  track_database_manager 

Version:  1 

setworker  —  >  to  dwyer 

NODENAME  — >  display_graphic_tracks 

Version:  1 

setworker  -->  to  dwyer 
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NODENAME  —  >  display_tracks 
Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  emergency_status_screen 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  get_modification_data 

Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  get_user_inputs 
Version:  1 

setworker  —  >  to  dwyer 

NODENAME  — >  intelligence_report_panel 

Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  manage_user_interface 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  message_arrival 
Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  message_arrival_panel 

Version:  1 

setworker  —  >  to  dwyer 
NODENAME  — >  message_editor 
Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  resolution_notice_panel 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  status_screen 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  user_interface 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  weapons_interface 
Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  weapons_systems 
Version:  1 

setworker  -->  to  dwyer 

CAPS  Engineering  Design  Database     199 1  (c)  WP.D. A.L.G 
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Running  main  ddb53  crl  c3i  unix  ...Resetting  Locks 

CAPS  Engineering  Design  Database     199 1  (c)  WP.D. A.L.G 

Examine  the  directory  now  and  you'll  see  the  checked  out  subtree 

Running  main  ddb53  cdt  c3i  dos  r  ...Dumping  Tree 

NODENAME  — >  user_interface 
Version:  1 

NODENAME  — >  display_graphic_tracks 
Version:  1 

NODENAME  — >  display_tracks 
Version:  1 

NODENAME  — >  emergency_status_screen 
Version:  1 

NODENAME  — >  get_modification_data 
Version:  1 

NODENAME  — >  get_user_inputs 
Version:  1 

NODENAME  — >  intelligence_report_panel 
Version:  1 

NODENAME  — >  manage_user_interface 
Version:  1 

NODENAME  — >  message_arrival 
Version:  1 

NODENAME  — >  message_arrival_panel 
Version:  1 

NODENAME  — >  message_editor 
Version:  1 

NODENAME  — >  resolution_notice_panel 
Version:  1 

NODENAME  — >  status_screen 
Version:  1 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Examine  the  directory  now  and  you'll  see  the  checked  out  subtree 
Running  main  ddb53  cdt  c3i  spare  w  ...Dumping  Tree 
NODENAME  — >  resolve_outgoing_messages 
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Version:  1 

setworker  -->  to  dwyer 
NODENAME  —  >  convert_to_text_file 
Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  forward_for_translation 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  forward_for_transmission 

Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  make_routing 
Version:  1 

setworker  -->  to  dwyer 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Running  main  ddb53  crl  c3i  unix  ...Resetting  Locks 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Examine  the  directory  now  and  you'll  see  the  checked  out  subtree  .. 
Press  return  to  continue 

Running  main  ddb53  cdt  c3i  unix  w  ...Dumping  Tree  for  UPDATE 
NODENAME  —  >  c3i 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  prepare_periodic_report 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  decide_for_archiving 

Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  decide_for_relaying 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  extract_tracks 
Version:  1 

setworker  —  >  to  dwyer 
NODENAME  — >  parse_input_file 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  resolve_incoming_messages 
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Version:  1 

setworker  -->  to  dwyer 
NODENAME  —  >  convert_to_text_file 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  forward_for_translation 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  forward_for_transmission 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  make_routing 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  resolve_outgoing_messages 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  translate_message 
Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  comms_interface 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  commsjinks 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  —  >  navigation_system 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  analyze_sensor_data 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  —  >  normalize_sensor_informalion 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  prepare_sensor_track 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  sensorjnterface 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  —  >  sensors 
Version:  1 

setworker  —  >  to  dwyer 
NODENAME  — >  monitor_database 
Version:  1 
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setworker  -->  to  dwyer 
NODENAME  — >  add_comms_tracks 
Vision:  1 

setworker  -->  to  dwyer 
NODENAME  —  >  add_sensor_track 
Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  add_user_track 
Version:  1 

setworker  —  >  to  dwyer 
NODENAME  —  >  delete_the_track 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  filter_comms_tracks 

Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  filter_sensor_tracks 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  monitor_ownship_position 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  update_the_track 
Version:  1 

setworker  —  >  to  dwyer 
NODENAME  — >  update_tracks 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  track_database_manager 

Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  display_graphic_tracks 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  display_tracks 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  emergency_status_screen 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  get_modification_data 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  get_user_inputs 
Version:  1 
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setworker  — >  to  dwyer 

NODENAME  — >  intelligence_report_panel 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  manage_user_interface 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  message_arrival 
Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  message_arrival_panel 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  message_editor 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  resolution_notice_panel 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  status_screen 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  user_interface 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  weapons_interface 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  weapons_systems 
Version:  1 

setworker  -->  to  dwyer 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


CONFIGURATION  DUMP  TREE  test  complete  ...  Press  Return  to  continue 

Simulating  updates  by  TOUCHING  files 

Running  touch  c3i.ps ... 

Running  touch  c3i.user_interface.imp.psdl ... 

Running  touch  c3i.user_interface.message_arrival_panel.spec.psdl ... 
Running  touch  c3i.user_interface_emergency_status_screen.imp.psdl ... 
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We  have  just  simulated  editing  several  operators. 
Press  Return  to  continue 


Running  a  CONFIGURATION  update  now  (Posting  version  #2  of  c3i) 
Running  main  ddb53  caa  c3i  unix  ... 


CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKDSf- 

CHECKIN- 

CHECKTN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKTN- 

CHECKTN- 

CHECKflM- 

CHECKIN- 

CHECKIN- 

CHECKTN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKTN- 

CHECKIN- 

CHECKIN- 

CHECKTN 

CHECKIN- 

CHECKIN- 

CHECKTN 

CHECKIN 

CHECKTN- 

CHECKIN- 

CHECKIN- 

CHECKIN 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKIN- 

CHECKTN- 

CHECKIN- 

CHECKTN 


>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
>c3 
•>c3 
•>c3 
■>c3 
■>c3 
•>c3 
•>c3 
■>c3 
■>c3 
->c3 
->c3 
>c3 
->c3 
->c3 
->c3 
>c3 
->c3 
->c3 
>c3 
>c3 
->c3 
>c3 
->c3 
->c3 
->c3 


.comms_interface 

.comms_interface.prepare_periodic_report 

.comms_interface.resolve_incoming_messages 

.comms_interfacejesolve_incoming_messages.decide_for_archiving 

.comms_interfacej'esolve_incoming_messages.decide_for_relaying 

.comms_interface.resolve_incoming_messages.extract_tracks 

.comms_interfacejesolve_incoming_messages.parse_input_file 

.comms_interfacejesolve_outgoing_messages 

.comms_interfacejesolve_outgoing_messages.convert_to_text_file 

.comms_interface.resolve_outgoing_messages.forward_for_translation 

.comms_interface.resolve_outgoing_messages.forward_for_transmission 

.comms_interface.resolve_outgoing_messages.make_routing 

.com  ms_interface  .translate_message 

.comms_links 

.navigation_system 

.sensor_interface 

.  sensor_interface.anal  y  ze_sensor_data 

.sensor_interface.normalize_sensor_information 

.sensor_interface.prepare_sensor_track 

sensors 

track_database_manager 

.track_database_manager.monitor_database 

.  track_database_manager  .update_tracks 

.track_database_manager.update_tracks.add_comms_tracks 

.track_database_manager.update_tracks.add_sensor_track 

.track_database_manager.update_tracks.add_user_track 

.track_database_manager.update_tracks.delete_the_track 

.u^ck_database_manager.update_tracks.filter_comms_tracks 

.track_database_manager.update_tracks.filter_sensor_tracks 

.track_database_manager.update_tracks.monitor_ownship_position 

.track_database_manager.update_U'acks.update_the_track 

.user_interface 

.user_interface.display_graphic_tracks 

.user_interface.display_tracks 

.user_interface.emergency_status_screen 

.user_interface.get_modification_data 

.user_interface.get_user_inputs 

.user_interface.intelligence_report_panel 

.user_interface.manage_user_interface 

.user_interface.message_arrival 

.user_interface.message_arrival_panel 

.user_interface.message_editor 

.user_interfacejesolution_notice_panel 

.user_interface.status_screen 

.  weapons_interf ace 

weapons_systems 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 
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CONFIGURATION  UPDATE  TREE  lest  complete  ...  Press  Return  to  continue 


Show  the  versions  of  the  root  vobject  ... 
Running  ddb53  vgv  c3i  c3i  ... 

TfflS  THREAD  CONTAINS  THE  FOLLOWING  VERSIONS: 

1 
2 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Show  the  versions  of  the  userjnterface  vobject ... 
Running  ddb53  vgv  c3i  c3i.user_interface  ... 

THIS  THREAD  CONTAINS  THE  FOLLOWING  VERSIONS: 

1 

2 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Show  the  versions  of  the  emergency_status_screen  vobject ... 

Running  ddb53  vgv  c3i  c3i.user_interface.emergency_status_screen 

THIS  THREAD  CONTAINS  THE  FOLLOWING  VERSIONS: 

1 
2 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Show  the  version  of  an  OPERATOR  which  DID  NOT  version  ... 

Running  ddb53  vgv  c3i  c3i.comms_interface  ... 

THIS  THREAD  CONTAINS  THE  FOLLOWING  VERSIONS: 

1 
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CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 
Press  Return  to  continue 

Running  main  ddbS3  vdt  c3i  c3i  w 

NODENAME  — >  c3i 
Version:  2 

setworker  — >  to  dwyer 

NODENAME  — >  prepare  _periodic_report 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  decide_for_archiving 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  decide_for_relaying 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  extract_tracks 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  parse_input_file 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  resolve_incoming_messages 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  —  >  convert_to_text_file 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  forward_for_translation 

Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  forward_for_transrnission 

Version:  1 

setworker  —  >  to  dwyer 
NODENAME  —  >  make_routing 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  resolve_outgoing_messages 

Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  translate_message 
Version:  1 

setworker  -->  to  dwyer 

108 


NODENAME  — >  comms_interface 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  comms_links 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  navigation_system 
Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  analyze_sensor_data 

Version:  1 

setworker  ->  to  dwyer 

NODENAME  — >  normalize_sensor_information 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  prepare_sensor_track 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  sensor_interface 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  —  >  sensors 
Version:  1 


setworker  -->  to  dwyer 
NODENAME  — >  monitor_database 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  add_comms_tracks 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  add_sensor_track 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  add_user_track 
Version:  1 

setworker  ->  to  dwyer 
NODENAME  — >  delete_the_track 
Version:  1 

setworker  — >  to  dwyer 

NODENAME  — >  filter_comms_tracks 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  filter_sensor_tracks 
Version:  1 

setworker  -->  to  dwyer 
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NODENAME  — >  monitor_ownship_position 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  update_the_track 
Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  update.tracks 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  track_database_manager 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  display_graphic_tracks 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  display_tracks 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  —  >  emergency_status_screen 

Version:  2 

setworker  — >  to  dwyer 

NODENAME  — >  get_modification_data 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  get_user_inputs 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  intelligence_report_panel 

Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  manage_user_interface 

Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  message_arrival 
Version:  1 

setworker  —  >  to  dwyer 

NODENAME  — >  message_arrival_panel 

Version:  2 

setworker  -->  to  dwyer 
NODENAME  — >  message_editor 
Version:  1 

setworker  -->  to  dwyer 

NODENAME  — >  resolution_notice_panel 

Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  status  screen 
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Version:  1 

setworker  -->  to  dwyer 
NODENAME  — >  user_interface 
Version:  2 

setworker  -->  to  dwyer 
NODENAME  — >  weapons_interface 
Version:  1 

setworker  — >  to  dwyer 
NODENAME  — >  weapons_systems 
Version:  1 

setworker  -->  to  dwyer 

CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Now  updating  modules  ... 

Running  touch  c3i.ps ... 

Running  touch  c3i.user_interface.imp.psdl ... 

Running  touch  c3i.user_interface.message_arrival_panel.spec.psdl ... 
Running  touch  c3i.user_interface_emergency_status_screen.imp.psdl ... 

We  have  just  simulated  editing  several  operators.... 
Now  Posting  Version  3  to  the  database  ... 

Running  main  ddb53  vaa  c3i  c3i 

CHECKIN»>  c3i 

CHECKIN-->  c3i.comms_interface 

CHECKTN->  c3i.comms_interface.prepare_periodic_report 

CHECKTN-->c3i.comms_interface.resolve_incoming_messages 

CHECKTN-->c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 

CHECKTN-->c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 

CHECKIN">c3i.comms_interface.resolve_incoming_messages.extract_tracks 

CHECKTN-->c3i.comms_interface.resolve_incoming_messages.parse_input_file 

CHECKIN~>c3i.comms_interfacejesolve_outgoing_mes  sages 

CHECKTN->c3i.comms_interfacejesolve_outgoing_messages.convert_to_text_file 

CHECKIN->c3i.comms_interfacejesolve_outgoing_messages.forward_for_translation 

CHECKTN-->c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 

CHECKTN-->c3i.comms_interfacejesolve_outgoing_messages.make_routing 

CHECKTN~>c3i.comms_interface.translate_message 

CHECKTN-->  c3i.comms_links 

CHECKTN->  c3i.navigation_system 

CHECKIN">  c3i.sensor_interface 

CHECKIN-->c3i.sensor_interface.analyze_sensor_data 

CHECKIN-->c3i.sensor_interface.normalize_sensor_informaUon 

CHECKIN-->  c3i.sensor_interface.prepare_sensor_track 
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CHECKIN-->  c3i.sensors 

CHECKIN-->  c3i.track_database_manager 

CHECKIN-->c3i.track_database_manager.monitor_database 

CHECKIN~>  c3i.track_database_manager.update_tracks 

CHECKIN-->c3i.track_database_manager.update_tracks.add_comms_tracks 

CHECKIN— >c3i.track_database_manager.update_tracks^dd_sensor_track 

CHECKIN->c3i.track_database_manager.update_tracks^dd_user_track 

CHECKIN~>c3i.track_database_manager.update_tracks.delete_the_track 

CHECKIN-->c3i.track_daiabase_manager.update_iracks.filtCT_comiTis_tracks 

CHECKIN-->c3i.track_database_manager.update_tracks.filtCT_sensor_tracks 

CHECKJN-->c3i.track_database_manager.update_tracks.monitor_ownship_position 

CHECKIN-->c3i.track_database_manager.update_tracks.update_the_track 

CHECKDM-->  c3i.user_interface 

CHECKIN~>  c3i.usCT_interface.display_graphic_tracks 

CHECKIN">  c3i.user_interface.display_tracks 

CHECKIN">c3i.user_interface.emergency_status_screen 

(THECKIN-->c3i.user_mterface.get_modification_data 

CHECKIN">c3i.user_interface.get_user_inpuls 

CHECKIN->c3i.user_interface.intelligence_report_panel 

CHECKIN— >c3i.usCT_interface.manage_usCT_inierface 

CHECKIN~>  c3i.user_interface.message_arrival 

CHECKIN-->c3i.user_interface.message_arrival_panel 

CHECKIN~>c3i.user_interface.message_editor 

CHECKTN--:>c3i.user_interface.resolution_notice_panel 

CHECKIN~>  c3i.user_interface.status_screen 

CHECKIN-->  c3i.weapons_interface 

CHECKIN~>  c3i.weapons_systems 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 
Press  Return  to  continue 

Now  check  the  versions  of  c3i  in  the  database 

Running  main  ddb53  vgv  c3i  c3i ... 

THIS  THREAD  CONTAINS  THE  FOLLOWING  VERSIONS: 

1 
2 
3 

CAPS  Engineering  Design  Database    199 1  (c)  WP.D. A.L.G 

Show  the  versions  of  the  user_interface  vobject ... 

Running  ddb53  vgv  c3i  c3i.user_interface  ... 

THIS  THREAD  CONTAINS  THE  FOLLOWING  VERSIONS: 

1 
2 
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CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Show  the  versions  of  the  emergency_status_screen  vobject ... 
Running  ddb53  vgv  c3i  c3i.user_interface.emergency_status_screen 
TfflS  THREAD  CONTAINS  THE  FOLLOWING  VERSIONS: 

1 

2 
3 

CAPS  Engineering  Design  Database     199 1  (c)  WP.D. A.L.G 

Show  the  version  of  an  OPERATOR  which  DID  NOT  version  ... 

Running  ddb53  vgv  c3i  c3i.comms_interface ... 

THIS  THREAD  CONTAINS  THE  FOLLOWING  VERSIONS: 

1 

CAPS  Engineering  Design  Database     199 1  (c)  WP.D. A.L.G 

Show  Versions  (VGV)  test  complete  ...Press  Return  to  continue 
Running  main  ddb53  vud  c3i  c3i.user_interface  file3  ... 

CAPS  Engineering  Design  Database     199 1  (c)  WP.D.A.L.G 

Here  is  the  description  entered  to  that  operator ... 
Running  main  ddb53  vgd  c3i  c3i.user_interface  ... 


************************************************************** 


TT    tl  It  It  tt  It  It  tl    ttttltltTtlt   It    It  TtTTTTftTfTT    TfTTTTTTTT    ft  TTTtTTTT  tt  tt   TTTTTTTTTT 
############# 
########### 

#  #  #  #   ######  #  #####  #  #  ##### 
############ 
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############## 

#tf##tftttttf  tktittitttU  ttittlttit  itUUttHUU  UUUMti  tt  tttttttitt 
TT  TT  TT  TT  TT  TT  TT     TT  TT  It  tt  tt  IT    TTTTTT  fTH     IT  f?  TT  Tt  TT  TTTT    TTTTTTTTTT    TT    TTTTTrTTTT 

U  It  II II  II 

TTTTTT  tt  tt 

TTtTTTtTTT 
####  #  tt  U 

TT  TTTTTT    TT    TT    TT 

#### 

#tttttttttt  M 
TT  TTTTTT  TT    TT 

### 
##### 

ijji jiii   jAJMMm   ^ 
TTTTTrTT   TTTTtTTTTT    TT 


This  file  is  a  test  file  used 
to  update  the  VOBJECT 
DESCRIPTION  ATTRIBUTE. 

««  UPDATED  SUCCESSFULLY  »» 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 


Press  Return  to  continue  ... 

Now  let's  update  an  OLDER  version  of  an  operator  previously  stored 
Running  main  ddb53  vud  c3i  c3i.user_interface  file4  1 ... 


CAPS  Engineering  Design  Database     199 1  (c)  WP.D. A.L.G 

Here  is  the  description  entered  to  that  operator ... 

Running  main  ddb53  vgd  c3i  c3i.user_interface  1  ... 

************************************************************ 
************************************************************ 

#  #  #######  ######  #  #######  #####  #######  # 
############# 
############ 

#  #  #  #  ######  #  #####  #  #  # 
############ 

############# 

#  fr######  tttttftftftf  #####  tftf  tttftffftt  #####  #  ##### 


tttttttitt 

TrTrTTTTTT 

####  #  #  # 
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#### 

M  Hit  HUM  M 
it  n  nn  nil  tt 

### 

##### 

tiUUU  nttrhHti  tt 
tttttttt  tt  tt  tt  n  tt  tt 


This  file  is  a  test  File  used 
to  update  the  VOBJECT 
DESCRIPTION  ATTRIBUTE. 

««  UPDATED  SUCCESSFULLY  »» 

************************************************************ 
************************************************************ 


CAPS  Engineering  Design  Database     1991(c)  WP.D.AL.G 


UPDATE  VOBJECT/OPERATOR  (VUD)  test  complete...  Press  Return  to  conunue 

Now  attach  the  configurations  to  different  versions  of  ROOT  VOBJECT  ... 
Running  main  ddb53  cao  c3i  unix  c3i  1 


CAPS  Engineering  Design  Database     1991(c)  WP.D.AL.G 
Running  main  ddb53  cao  c3i  dos  c3i  2 

CAPS  Engineering  Design  Database     1991(c)  WP.D.AL.G 
Running  main  ddb53  cao  c3i  spare  c3i  3 

CAPS  Engineering  Design  Database     1991(c)  WP.D.AL.G 

Press  Return  to  continue 

One  Last  list  to  verify  everythings  in  order ... 

Press  Return  to  conunue  ... 

Running  main  ddb53  clo  c3i  unix 

Operator:  c3i 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.prepare_periodic_report 
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Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.comms_interfacejesolve_incoming_messages.decide_for_archiving 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages.decide_for_relaying 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.comms_interfacejesolve_incoming_messages.extract_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages.parse_input_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.convert_to_text_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.make_routing 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.translate_message 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_links 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.navigation_system 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface.analyze_sensor_data 
Version:  1 


116 


Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.sensor_interface.normalize_sensor_information 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface.prepare_sensor_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.sensors 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.track_database_manager.monitor_database 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.add_comms_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.add_sensor_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.add_user_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.delete_the_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.fiUer_comms_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.filter_sensor_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.monitor_ownship_position 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.update_the_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 
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Operator:  c3i.user_interface.display_graphic_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.display_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.emergency_status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.user_interface.get_modification_data 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.get_user_inputs 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.intelligence_report_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.manage_user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_arrival 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_arrival_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_editor 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.resolution_notice_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.weapons_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.weapons_systems 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 
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CAPS  Engineering  Design  Database     199 1(c)  WP.D.A.L.G 

Press  Return  to  continue ... 

Running  main  ddb53  clo  c3i  dos 

Operator  c3i 

Version:  2 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.prepare_periodic_report 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages.decide_for_archiving 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages.extract_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages.parse_input_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_incoming_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.convert_to_text_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.make_routing 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3  i  .com  ms_in terf ace  jesolve_outgoing_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.comms_interface.translate_message 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 
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Operator:  c3i.comms_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.comms_links 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator.  c3i.navigation_system 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.sensor_interface.analyze_sensor_data 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface.normalize_sensor_infoimation 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface.prepare_sensor_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i. sensors 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.monitor_database 
Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


Operator:  c3i.track_database_manager.update_tracks.add_comms_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.add_sensor_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.add_user_track 
Version:  1 
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Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.track_database_manager.updaie_tracks.delete_the_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.filter_comrns_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.track_database_manager.update_tracks.rilter_sensor_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.monitor_ownship_position 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.update_the_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.display_graphic_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.display_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.emergency_status_screen 

Version:  2 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.get_modification_data 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.get_user_inputs 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.intelligence_report_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.user_interface.manage_user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_arrival 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


121 


Operator:  c3i.user_interface.message_arrival_panel 

Version:  2 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.user_interface.message_editor 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.resolution_notice_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface 

Version:  2 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.weapons_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.weapons_systems 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Press  Return  to  continue  ... 

Running  main  ddb53  clo  c3i  spare 

Operator:  c3i 

Version:  3 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.prepare_periodic_report 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages.decide_for_archiving 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.comms_interfacejesolve_incoming_messages.decide_for_relaying 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages.extract_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_incoming_messages.parse_input_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 
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Operator:  c3i.comms_interface.resolve_incoming_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.convert_to_text_file 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.forward_for_translation 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.forward_for_transmission 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interfacejesolve_outgoing_messages.make_routing 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.resolve_outgoing_messages 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface.translate_message 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.comms_links 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.navigation_system 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface.analyze_sensor_data 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface.normalize_sensor_information 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface.prepare_sensor_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.sensor_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i. sensors 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 
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Operator  c3i.track_database_manager.monitor_database 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.track_database_manager.update_tracks.add_comms_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_inanager.update_tracks.add_sensor_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.track_database_manager.update_tracks.add_user_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.delete_the_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.filter_comms_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.filter_sensor_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.monitor_ownship_position 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks.update_the_track 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager.update_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.track_database_manager 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.display_graphic_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.display_tracks 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.emergency_status_screen 

Version:  3 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.get_modification_data 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.get_user_inputs 
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Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.intelligence_report_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.manage_user_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator  c3i.user_interface.message_arrival 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_arrival_panel 

Version:  3 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.message_editor 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.resolution_notice_panel 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface.status_screen 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.user_interface 

Version:  3 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.weapons_interface 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 

Operator:  c3i.weapons_systems 

Version:  1 

Locktime  is:  Wed  Dec  31  16:00:00  1969 


CAPS  Engineering  Design  Database     1991(c)  WP.D.A.L.G 

Press  Return  to  continue  ... 

****+***++++*+***+*******************+* ******************************* 

echo"*NAVALPOSTGRADUATESCHOOL*" 

echo  "  *  Software  Engineering  *" 

echo  "  *  Design  Database  *" 

echo  "  *  Thesis  Advisor  Dr.  Luqi 

echo  "  *  Written  by:  Drew  Dwyer  and  Garry  Lewis  *" 

echo  "  *  Design  Database  vl.l  WP.D.A.L.G  .  *" 

********************************************************************** 

[7msun53:/n/gemini/work/dwyer/SCCS»[m  exit 
exit 

script  done  on  Tue  Sep  3  11:36:13  1991 
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APPENDIX  D 
CODE 

A.  PREPARATION  NOTES 

This  code  was  written  using  Glockenspiel  C++  version  2.0a. 

B.  PRINTING  NOTES 

This  code  was  prepared  for  printout  using  the  c++21atex  code  generator.  This 
generator  parses  the  ASCII  text  input  files  and  places  latex  commands  where  directed.  This 
makes  the  code  layout  more  readable  and  highlights  the  important  data  strucutes  and  key 
words  within  the  C++  code.  The  latex  output  was  then  converted  to  postscript  format  with 
the  dvitops  program. 

C.  MAINTENANCE 

This  code  is  maintained  at  the  Naval  Postgraduate  School  Computer  Science 
department. 
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//  File  Header 

// •• 

/ / .Filename ;  main.cxx 

//.SCCS  ID :  1.3 

1/ .Release  No....:  1 

//.Date :  9/16/91 

// .Author ;  Garry  Lewis 

1/ ;  Drew  Dwyer 

/ /.Compiler :  Glockenspiel  C++  2.1 

II 

II  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
If  object  file 

static  char  main_SccsId[|  =  "®(#)main.cxx  1 .3\t9/16/91"; 

//  Interface  Dependencies 


#iindef  _DDBDEFINES.H 
#include  "ddbdef ines.h" 
#endif 

#include  <Obj  ect .  h> 
#include  <Transaction.h> 
#include  <Directory .h> 
#include  <GlobalEntities .h> 
#include  <Database.h> 
#include  <List.h> 
#include  < stream. hxx> 

extern  "C — " 

{ 

#include  <stdlib.h> 

#include  <stddef  .h> 

#include  <string.h> 

#include  <ctype.h> 

} 

#ifndef  _VOBJECTFUNC.H 
# include  "vobjectfunc.h" 
#endif 

#ifndef  _EVALUATION_H 
#include  "evaluation.h" 
#endif 

#if  ndef  _PROTFUNC_H 
tinclude  "protfunc.h" 
#endif 
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#ilndef  _CONFFUNC_H 
#include  "conffunc.h" 
ffendif 

//  End  Interface  Dependencies 


Type  *V.OBJECT_OType; 
Type  *THREAD_OType; 
Type  *COMPONENT_OType; 
Type  *TEXT_OBJECT.OType; 
Type  *PROTOTYPE_OType; 
Type  *CONFIGURATION_OType; 
Type  *DDB_OType; 

Directory  *prototype_dir  =  (Directory*)0; 
Directory  *ddbRootDir  =  (Directory* )0; 
List  *myPrototypeList  =  (List*)0; 
char  *databeise_name  =  (char  *)0; 
char  *userPtr  =  (char  *)0; 
char  *dirNamePtr  =  (char  *)0; 
void  initialize.types(void); 
void  setUpDirectory(char  *,  char  *); 

int  main(int  argc,  char  *argv[|) 

{ 
dirNamePtr  =  getenv("PROTOTYPEM); 
userPtr  =  getenv("USERM); 
Boolean  done=FALSE; 
int  menu_option=0; 
ifstream  inFile; 


char  *function_tag; 

int  number-arguments; 
int  run  =  0; 

if(argv[l]) 

{ 

database-name  =  new  char[strlen(argv[l])+l]; 
strcpy(database_name,argv[l]); 

} 

if(argv[2]) 

{ 

function-tag  =  new  char[strlen(argv[2])+l]; 

strcpy(function_tag,  argv[2]); 
} 

number  .arguments  =  argc  -  3; 
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//  subtract  the  "design"  "database"  &  "function" 
II  from  the  argument(s)  we  evaluate. 

if  (number-arguments  <  0) 

{ 

cerr  <C  "<ERROR:  Not  enough  arguments  specif  ied>\n\n" 

<  "  Format  lor  Usage:  \n\n" 

<C  "  designdb  dbasename  function  [argument,  ...]\n\n"; 

exit(l); 

} 

if  (OCjopen(database  jiame)) 

{ 

OC_transactionStart(); 

initialize_types(); 

setUpDirectory(argv[3],  function.tag); 

} 
else 

{ 

cerr  <C  "<ERR0R:    Error  attempting  to  open  database   " 
•C  database_name 

•C  " >  database  does  not   exist   in  registry\n\n\n"; 

exit(l); 

} 

if  (strlen(function_tag)<3  ||  strlen(function_tag)>3) 

{ 

cerr  <  "<ERR0R:    illegal   function  type~>   <" 

<C  function-tag  <  ">   >\n"; 

} 
else 

{ 
if  (function_tag[0]  ==  'P'  ||  function_tag[0]=='p') 

run  =  evaluate_prototype_function(upper(functionJt.ag), 

number_arguments); 
else  if  (function_tag[0]  ==  'C  ||  function_tag[0]=='c') 
run=evaluate_configuration_function(upper(function.tag), 

number-arguments) ; 
else  if  (function_tag[0]  ==  'V  ||  function_tag[0]=='v') 
run  =  evaluate_vobject_function(upper(function_tag), 

number-arguments) ; 
else 

{ 

cerr  <  "<ERR0R:    illegal  function  type — >   <"; 

cerr  <C  function-tag  <C  ">  >\n"; 
} 
} 

switch  (run) 
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{ 

case  LIST_PROTOTYPES: 

list_prot_func(number_arguments); 
break; 
case  LONG_LIST_PROTOTYPES: 
longJist_prot_func(number  .arguments); 
break; 
case  GET_PROTOTYPE_LEADER: 

get_protJeader.iunc(number_arguments,  argv[3]); 
break; 
case  DUMP_PROTOTYPEJSUMMARY: 

dump_prot_summary_func(number_arguments,  argv[3]); 
break; 
case  GET_PROTOTYPE_DESCRIPTION: 

get_prot .description _func(number .arguments,  argv[3]); 
break; 
case  RETRIEVE_PROTOTYPE_DATE: 

retrieve  _prot  .date  _func(number arguments,  argv[3]); 
break; 
case  INSERT-PROTOTYPE: 

insert_prot_func(number^arguments,  argv[3], 

argv[4],  argv[5]); 
break; 
case  UPDATE  .PROTOTYPE-LEADER: 
update_protJeader_func(number  arguments, 

argv[3],  argv[4]); 
break; 
case  UPDATE_PROTOTYPE_DESC: 

update_prot_desc_func(number  .arguments, 

argv[3],  argv[4]); 
break; 
case  UPDATE_PROTOTYPE_NAME: 

update_prot_name_func(number_arguments, 

argv[3],  argv[4]); 
break; 
case  DUMP.CONFIGURATIONJSUMMARY: 
dump_conLsummary_func(number.arguments, 

argv[3],argv[4]); 
break; 
case  GET_LATEST.CONFIGURATION: 
get  JatestjconfJunc(number  .arguments, 

argv[3]); 
break; 
case  ADD-CONFIGURATION.OPERATORS: 
add_confjoperators_func(number  .arguments, 

argv[3],argv[4]); 
break; 
case  DUMP_CONFIGURATION-OPERATORS: 
dump_conf_operators_func(number_arguments, 

argv[3],argv[4],argv[5]); 
break; 
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case  RELEASE.CONFIGURATIONXOCK: 

release  _conf  Jock  _func(number  .arguments, 

argv[3],argv[4]); 
break; 
caseLONG_LIST_CONFIGURATION_OPERATORS: 
longJist_conf_operators_func(number_arguments, 

argv[3],argv[4]); 
break; 
caseLIST.CONFIGURATION.OPERATORS: 
list_conf_operators_func(number  .arguments, 

argv[3],argv[4]); 
break; 
case  LIST-CONFIGURATION _DEFAULT_OPERATOR: 
list_conf_default_operator_func(number_arguments, 

argv[3],argv[4]); 
break; 
case  LIST.CONFIGURATIONS: 

list_conf_func(number_arguments,  argv[3]); 
break; 
case  UPDATE_CONFIGURATION_NAME: 
update_conf_name_func(number_arguments, 

argv[3],  argv[4], 
argv[5j); 
break; 
caseGET_CONFIGURATION_DESCRIPTION: 
get_conf_desc  J"unc(number_arguments, 
argv[3],  argv[4]); 
break; 
case  INSERT.CONFIGURATION: 

insert_conf_func(number_arguments,  argv[3] , 
argv[4],  argv[5],  argv[6]); 
break; 
case  UPDATE-CONFIGURATION  .DESCRIPTION: 
update_conf.desc_func(argv[3],  argv[4], 

argv[5]); 
break; 
case  GET-CONFIGURATION-MANAGER: 
get_confjmanager_func(number_arguments, 

argv[3],  argv[4]); 
break; 
caseUPDATE.CONFIGURATION-MANAGER: 

update_confjnanager_func(number_arguments,  argv[3], 

argv[4],  argv[5]); 
break; 
case  GET_CONFIGURATION-DATE: 
get_conf_date_func(number -arguments, 
argv[3],  argv[4]); 
break; 
case  GET.CONFIGURATION-CHANGED: 

case  POST.CONFIGURATIONXOG: 
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post_conf_log_func(argv[3],  argv[4],  argv[5]); 
break; 
case  GET-CONFIGURATION-LOG: 
get_confJog_func(number  .arguments, 
argv[3],  argv[4]); 
break; 
case  ATTACH.OPERATOR: 

attach_vobject_to_conf_func(number  .arguments, 

argv[3],argv[4], 
argv[5],argv[6]); 
break; 
// X X -X X 

II 

II  V OBJECT  CASE  STATEMENTS 

II 

II X X X X 

case  LIST-OPERATORS: 

list_operators_func(number  .arguments,  argv[3], 

argv[4],argv[5]); 
break; 
case  GET.VOBJECT -DESCRIPTION: 

get_vobject_desc_func(number .arguments,  argv[3], 

argv[4],  argv[5]); 
break; 
case  UPDATE.VOBJECT .DESCRIPTION: 
update_vobject_desc_func(number  .arguments, 

argv[3],  argv[4], 
argv[5],  argv[6]); 
break; 
case  GET.VOBJECT _DATE: 

get_vobject_dateJ"unc(number ^arguments,  argv[3], 

argv[4],  argv[5]); 
break; 
case  GET_VOBJECT.VERSIONS: 

get_vobject_versions_func(number  .arguments, 

argv[3],  argv[4]); 
break; 
case  GET.VOBJECTXOCK: 

get_vobjectJock_func(number  .arguments, 

argv[3],  argv[4],  argv[5]); 
break; 
case  GET_VOBJECT_VERSION: 
get_vobject_version_func(); 
break; 
case  DUMP.VOBJECT .SUMMARY: 

dump_vobject_summary_func(number_arguments,  argv[3] , 

argv[4],  argv[5]); 
break; 
case  GET.VOBJECT  .POSTSCRIPT: 

get_vobject_psfile_func(number  ^arguments,  argv[3] , 

argv[4],  argv[5],argv[6]); 
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break; 
case  GET.VOBJECT.GRAPH: 

get_vobject_graphfile_func(number^arguments,argv[3], 

argv[4],  argv[5],argv[6]); 
break; 
case  GET_VOBJECTJMPLEMENTATION: 

get.vobject  jmpfile_func(number_arguments,  argv[3], 

argv[4],  argv[5],argv[6]); 
break; 
case  GET.VOBJECTJSPECIFICATION: 

get_vobject^pecfile_func(number arguments,  argv[3] , 

argv[4],  argv[5],argv[6]); 
break; 
case  GET.VOBJECTJSOURCE: 

get_vobject_sourcefile_func(number  ^arguments, 

argv[3],  argv[4j, 
argv[5],argv[6]); 
break; 
case  DUMP.VOBJECT _FILES: 

dump_vobject_files_func(number_arguments, 

argv[3],  argv[4], 
argv[5],argv[6]); 
break; 
case  DUMP_VOBJECT.TREE: 

dump_vobject_tree_func(number .arguments,  argv[3] , 

argv[4],  argv[5],argv[6]); 
break; 
case  ADD_VOBJECT_AND.SUBTREE: 

add_vobject_and_subtree_func(number  arguments, 

argv[3],argv[4]); 
break; 
case  RELEASE.OPERATORXOCK: 

release  jop  erator  Jock  _func(number  ^arguments , 

argv[3],argv[4], 
argv[5]); 
break; 
case  RELEASE_SUBTREE_LOCK: 

release^ubtree  Jock  Junc(number  .arguments, 

argv[3],argv[4], 
argv[5]); 
break; 
case  LONG  JJST.OPERATORS: 

longJist_operatorsJ"unc(number_arguments,argv[3], 

argv[4],argv[5]); 
break; 
case  LONGXIST.CHILDREN: 

longJist_childrenJ'unc(number_arguments,argv[3], 

argv[4],argv[5]); 
break; 
case  LONG  JJSTJARENTS: 

longJist-parentsJunc(number_arguments,argv[3], 
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argv[4],argv[5]); 
break; 
case  ERRORJN_EVALUATION: 

cerr  <C  "<ERR0R:   Error  returned  from  evaluation" 

<  "  iunction>\n"; 
break; 
default: 

{ 

cerr  <C  "<ERROR:    Unknown  error  with  function  " 

<"   call.,  switch  (run)  .  .  .>\n"; 
exit(l); 
} 
} 
OC_transactionCommit(); 
OC_close(databasejiame); 
cerr  <C  "\n\nDesign  Database   " 

<"vl.l  Copyright   1991(c)   WP.D.A.L.G  Inc.\n\n\n"; 
exit(O); 
} 

// 

//  END  OF  MAIN 

II 

II 

void  initialize_types(void) 

{ 

THREAD_OType=(Type  *)OC_lookup("THREAD"); 

COMPONENT_OType=(Type  *)OCJookup("C0MP0NENTM); 
V -OBJECT  _OType=(Type  *)OCJookup("V_0BJECT"); 
TEXT.OBJECT_OType=(Type  *)OCJookup(MTEXT_DBJECT"); 
PROTOTYPE_OType=(Type  *)OCJookup("PR0T0TYPEM); 
CONFIGURATION.OType  =  (Type  *)OCJookup("C0NFIGURATI0NM); 
DDB.OType  =  (Type  *)OCJookup(MDDB"); 

}; 

void  setUpDirectory(char  *protName,  char  *func_tag) 
{ 

ddbRootDir  =  (Directory  *)  OCJookup(DESIGN.DATABASE.DIRECTORY); 
if(ddbRootDir) 

{ 

OC_setWorkingDirectory  (ddbRootDir); 

myPrototypeList  =  (List  *)  OCJookup(PROTOTYPE_LIST); 

} 
else 

{ 

ddbRootDir  =  new  Directory (DESIGN_DATABASE_DIRECTORY); 

ddbRootDir  — ►  putObject(); 

OCsetWorkingDirectory(ddbRootDir); 

myPrototypeList  =  new  List(OC.string, PROTOTYPE-LIST); 
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myPrototypeList  — ►  putObject(); 

} 
char  *yourDirChoice; 

if  ((strcmp(func_tag,  LIST.PROTOTYPE.UPC)  =====  0)  || 

(strcmp(func_tag,  LIST_PROTOTYPEXC)  =====  0)  || 

(strcmp(func_tag,  LONG_LIST_PROTOTYPE_LC)  ==  0)  | 
(strcmp(func_tag,  LONG_LIST_PROTOTYPEXC)  ==  0)) 

{ 

return; 

} 
else 

{ 
yourDirChoice  =  new  char[l  +  strlen(protName)  -f  5]; 
strcpy(yourDirChoice,  protName); 
strcat(yourDirChoice,  "_dir"); 

} 
prototype_dir  =  (Directory  *)OC_lookup(yourDirChoice); 

if  ((!(strcmp(func_tag,INSERT.PROTOTYPE.UPC))==:0)  kk 
(!(strcmp(func.tag,INSERT_PROTOTYPE_LC))==0)  kk 
(!(prototype_dir))) 

{ 

cerr  <  "<ERR0R:    Prototype   "  <  protName 

<  "  not  found>\n" 

<C  "<Did  you  remember  to  run  " 
<  "INSERT  PROTOTYPE  first?>\n"; 
OC_transactionCommit(); 
OC_close(database_name); 
exit(0); 

} 
if  (!prototype_dir) 

{ 

prototype_dir  =  new  Directory  (yourDirChoice); 
prototype.dir— >putObject(); 
if  (!prototype_dir) 

cerr  <C  "Did  not  setup  database  directory\n"; 
OCjsetWorkingDirectory(prototype_dir); 

} 
else 

{ 

OC_setWorkingDirectory(prototype_dir); 

} 


} 
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//  File  Header 

// •• 

/ / .Filename :  component. h 

//. SCCS  ID ;  1.3 

jj .Release  No....:  1 

I /.Date :  9/16/91 

1 1 .Author :  Garry  Lewis 

If ;  Drew  Dwyer 

I/. Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


#ifndef  _COMPONENT_H 
#def  ine  _COMPONENT_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
II  object  file 

static  char  COMPONENT_h_SccsId[]  =  "«(#) component  .h  1 .3\t9/16/91M; 


//  Contents 

// 

//  COMPONENT 

II 

I/  Description 

II 

II  Defines  class  COMPONENT. 

II 

If  End 


//  Implementation  Dependencies 

#include  <Type.h> 
#include  <List.h> 
#include  <Ref erence .h> 
#include "Ref erenceHacros  .h" 
#include  <stream.hxx> 


//  End  Implementation  Dependencies 
II  Interface  Dependencies 


#ifndef  _TEXT_OBJECT_H 
#include  "text_object .h" 
#endif 

//  End 

TypeCheckReference(TextObjDictReference,  Reference,  List); 

//  Class  // 
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class  COMPONENT  :  public  Object 

{ 

private  : 

TextObjDictReference  text  .object  .list; 

public: 

COMPONENT^); 

COMPONENT(APL  *theAPL); 

virtual  void  Destroy(Boolean  abort  =  FALSE); 

virtual  Type  *getDirectType(); 

void  getComponentNames(); 

Boolean  getComponentSource(char*) ; 

void  addTextObject(TEXT_OBJECT  *); 

Boolean  getPSfile(char*); 

Boolean  getGRAPHfile(char*); 

Boolean  getSPECfile(char*); 

Boolean  getIMPfile(char*); 

Boolean  getSOURCEfile(char*); 

~COMPONENT()  {  Destroy(FALSE);  }; 

}; 

//  Description 

// 

//  Defines  an  COMPONENT  class.   The  class  COMPONENT  is  a  derived 

II  class  of  Object. 

II 

If  Constructor 

II 

II  COMPONENT 

II 

II  Constructs  an  COMPONENT  object 

II 

If  COMPONENT  -A  PL 

II 

II  ONTOS  required  constructor 

II 

II  Public  Members 

II 

II  Destroy 

II 

If  ONTOS  heap  mangagement  method. 

II 

II  getDirectType 

II 

If  Return  the  ONTOS  Type  of  class  COMPONENT. 

II 

II  getComponentN ames 

II 
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//  Display  the  file  names  of  the  file  contained  in  the  COMPONENT  node 

II 

II  getComponentSource 

II 

II  Output  the  contents  of  an  COMPONENT  node  to  files. 

II 

II  addTextObject 

II 

II  Inserts  a  tezt.ohject  into  the  COMPONENT  node. 

II 

II  getPSfile 

II 

II  Output  the  .ps  file  contained  in  the  COMPONENT  node. 

II 

II  getG RAP H file 

II 

II  Output  the  .graph  file  contained  in  the  COMPONENT  node. 

II 

II  getSPECfile 

II 

II  Output  the  .spec  file  contained  in  the  COMPONENT  node. 

II 

II  getlMPfile 

II 

II  Output  the  .imp  file  contained  in  the  COMPONENT  node. 

II 

H  getSOURCEfile 

II 

II  Output  the  .a  file  contained  in  the  COMPONENT  node. 

II 

II  ^COMPONENT 

II 

II  Destructor  for  the  COMPONENT  class. 

II 

II  End 

#endif  //  _COMPONENT.H 
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//  File  Header 

// •• 

// .Filename :  component. cxx 

I /.SCCS  ID ;  1.3 

I) .Release  No....:  1 

/f. Date :  9/16/91 

II .Author ;  Garry  Lewis 

II :  Drew  Dwyer 

1 1 .Compiler ;  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
II  object  file 

static  char  COMPONENT_cxx_SccsId[|  =  "«(#) component .cxx  1 .3\t9/16/91"; 

//  Contents 

// 

//  COMPONENT-COMPONENT  ONTOS  constructor 

II  COMPONENT-COMPONENT  constructor 

II  COMPONENT::gelDireciType 

II  COMPONENTr.Destroy 

II  COMPONENTr.getComponentNames 

II  COMPONENTr.getComponentSource 

II  COMPONENTr.addTextObject 

II  COMPONENT.-.getPSfile 

II  COMPONENTr.getGRAPHfile 

II  COMPONENTr.getSPECfile 

II  COMPONENTr.getlMPfile 

If  COMPONENT::geiSOURCEfile 

II 

II  Description 

II 

II  Implementation  of  class  COMPONENT  member  functions. 

II 

II  End 

//  Implementation  Dependencies 


#ifndef  _DDBDEFINES_H 
#include  "ddbdef  ines.h" 
#endif 

#include  <0b j  ect . h> 
#include  <GlobalEntities .h> 

extern  "C — " 

{ 

#include  <strings.h> 

} 
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#iindef  _TRACER_H 
#include  " tracer. h" 
#endif 

#ifndef  _COMPONENT_H 
# include  " component . h" 
#endif 

//  End  Implementation  Dependencies 

extern  Type  *COMPONENT_OType; 
extern  Type  *TEXT_OBJECT_OType; 

//  ONTOS  required  constructor  // 

COMPONENT::COMPONENT(APL  *theAPL):(theAPL) 
{ 

}; 

//  Constructor  // 
COMPONENT::COMPONENT() 

//  Summary 

// 

//  Constructs  a  persistent  COMPONENT  object. 

II 

II  Parameter 

II 

If  None 

II 

II  Functional  description 

II 

If  Creates  a  list  to  hold  text  objects,  then  reset  a  reference 

II  to  point  to  the  list. 

II 

II  End 

{ 

initDirectType(COMPONENT.OType); 

List  *newTextObjList  =  new  List(TEXT.OBJECT.OType); 
newTextObjList  — ►  putObjectQ; 
text-objectJist.Reset(newTextObjList,  this); 
putObject(); 

}; 

//  End  Constructor  COMPONENT::COMPONENT// 

II  Member  Function  // 

Type  *COMPONENT::getDirectType() 
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//  Summary 

// 

//  returns  the  ONTOS  Type  for  the  COMPONENT  class. 

II 

II  Return  value 

II 

II  A  pointer  to  an  ONTOS  Type. 

II 

II  End 

{ 

return  COMPONENT.OType; 

}; 

//  End  Member  Function  COMPONENT::getDireciType  // 
II  Member  Function  // 

void  COMPONENT::Destroy(Boolean  aborted) 

{   , 

if  (aborted) 

{ 

Object  "Destroy  (aborted); 

} 
} 

//  End  Member  Function  COMPONENT::Destroy 

//  Member  Function  // 

void  COMPONENT::getComponentNames() 

//  Summary 

// 

//  Displays  the  name  of  each  component  in  an  COMPONENT  object. 

II 

II  Parameter 

II 

If  None 

II 

II  Functional  description 

II 

II  We  get  a  pointer  to  the  list  and  then  create  an  iterator 

II  for  the  list.   We  iterate  over  each  text  object  and 

II  display  the  contents  of  the  name  field. 

II 

II 

II  End 

{ 

List  *my_list  =  (List*)text_object_list.Binding(this); 


141 


Listlterator  myJterator(myJist); 
TEXT.OBJECT  *the.textjobject; 

while(my_iterator.moreData()) 

{ 

the_text  .object  =  (TEXT_OBJECT*)(Entity*)myiterator(); 

the_textjobject  — »  displayFileName(); 

} 

} 

//  End  Member  Function  COMPONENT::geiComponenlNames 

//  Member  Function  // 

Boolean  COMPONENT: :getComponentSource(char  *fileMode) 

{ 

List  *my_list  =  (List*)text_objectJist.Binding(this); 

Listlterator  myJterator(myJist); 

TEXT.OBJECT  *the_text_object; 

Boolean  write_failed  =  FALSE; 

while(myiterator.moreData()) 

{ 

the_textjobject  =  (TEXT_OBJECT*)(Entity*)my  Jterator(); 

if  (!the_text_object  — ►  rebuildTextFile(fileMode)) 

write  Jailed  =  TRUE; 

} 
if  (writeJailed) 

return  FAILED; 
else 

return  SUCCESS; 
} 

//  End  Member  Function  COMPONENT::getComponentSource 

//  Member  Function  // 

void  COMPONENT::addTextObject(TEXTDBJECT  *myJtext .object) 

{ 

List  *my_list  =  (List*)text_object_list.Binding(this); 

myJist  — ►  Insert(my.text.object); 

myJist  — ►  putObject(); 

putObject(); 
} 

//  End  Member  Function  COMPONENT::addTextObject 

//  Member  Function  // 

Boolean  COMPONENT: :getPSfile(char  *fileMode) 

{ 

List  *my_list  =  (List*)text_objectJist.Binding(this); 
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Listlterator  myJterator(my.list); 

while(my  iterator  .moreData( ) ) 

{ 

TEXT_OBJECT  *theJtext object  =  (TEXTDBJECT*)(Entity*)my  _iterator(); 
char  *the_file_name  =  the_text_object— ►getFileName(); 
the_file_name=(the -filename  + 

(strlen(the_textjDbject-^getFileName())-LENGTH_PSJ:XT)); 
if(strcmp(the_file_name,PS-EXT)==0) 

{  m 

if  (theiext  .object— ►rebuildTextFile(fileMode)); 
return  SUCCESS; 
} 
} 
} 

//  End  Member  Function  COMPONENT::getPSfile " 

//  Member  Function  // 

Boolean  COMPONENT: :getSPECfile(char  *fileMode) 
{ 

List  *my_list  =  (List*)text_object_list.Binding(this); 
Listlterator  my_iterator(my_list) ; 
while(my_iterator.moreData()) 

{ 
TEXT-OBJECT  *thejtext  object  =  (TEXTDBJECT*)(Entity*)my iteratorQ; 

char  *the_file_name  =  the_text.object— +getFileName(); 

the_file_name=(the_file_name  + 

(strlen(the.textjDbject-^getFileName())-LENGTH.SPECJEXT)); 

if(strcmp(the_file_name,SPEC_EXT)==0) 

{  . 

if  (the_text_object— ►rebuildTextFile(fileMode)) 

return  SUCCESS; 
else 

return  FAILED; 
} 
} 
} 

//  End  Member  Function  COMPONENTr.getSPECfile 

//  Member  Function  // 

Boolean  COMPONENT::getGRAPHfile(char  *fileMode) 

{ 

List  *my_list  =  (List*)text_objectJist.Binding(this); 
Listlterator  my Jterator(my.list) ; 
while(myJterator.moreData()) 
{ 
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TEXT.OBJECT  *thejtext  .object  =  (TEXT_OBJECT*)(Entity*)my  Jterator(); 
char  *the_file_name  =  the.textjobject— ►getFileName(); 
the_file_name=(the_file_name  + 

(strlen(the_text.object^getFileName())-LENGTH_GRAPH_EXT)); 
if(strcmp(the_file_name,GRAPH_EXT)==0) 

{  _ 

if  (thejtext-object— ►rebuildTextFile(fileMode)) 

return  SUCCESS; 

else 

return  FAILED; 

} 
} 
} 

//  End  Member  Function  COMPONENT::getGRAPHfile 

//  Member  Function  // 

Boolean  COMPONENT: :getIMPfile(char  *fileMode) 

{ 

List  *my_list  =  (List*)text.objectJist.Binding(this); 
Listlterator  my Jterator(my.list) ; 
while(myJterator.moreData()) 

{ 

TEXT-OBJECT  *the_text  .object  =  (TEXT_OBJECT*)(Entity*)my_iterator(); 

char  *theJile-name  =  the.textjobject— >getFileName(); 
the_file_name=(the_file_name  + 

(strlen(the_textj3bject-*getFileName())-LENGTHJMPT:XT)); 
if(strcmp(theJile_name,IMP_EXT)==0) 

{  . 

if  (the_text  .object— >rebuildTextFile(fileMode)) 

return  SUCCESS; 
else 

return  FAILED; 
} 
} 
} 

//  End  Member  Function  COMPONENT::getIMPfile 

//  Member  Function  // 

Boolean  COMPONENT::getSOURCEfile(char  *fileMode) 

{ 

List  *myJist  =  (List*)text_objectJist.Binding(this); 
Listlterator  my_iterator(my_list); 
while(myJterator.moreData()) 

{ 

TEXT.OBJECT  *theJtextjobject  =  (TEXTDBJECT*)(Entity*)my  JteratorQ; 

char  *the_file_name  =  the_text_object— +getFileName(); 

the_file_name=(the_file_name  + 
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(strlen(the.textj3bject^getFileName())-LENGTH^0URCEJ:XT)); 
if(strcmp(theJile_name,SOURCE_EXT)— 0) 

{  . 

if  (the_textjobject— ►rebuildTextFile(fileMode)) 

return  SUCCESS; 
else 

return  FAILED; 

} 
} 
} 
//  End  Member  Function  COMPONENTr.getSOURCEfile 
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//  File  Header 

// : 

// .Filename :  conffunc.h 

//.SCCS  ID :  1.3 

// .Release  No....:  1 

//.Date ;  9/16/91 

/ / .Author ;  Garry  Lewis 

1/ :  Drew  Dwyer 

1 1.  Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


#ifndef  _CONFFUNC_H 
#def  ine  _CONFFUNC_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
II  object  file 

static  char  conffunc_h_SccsId[)  =  "«(#)conffunc.h  1 .3\t9/16/91"; 

//  Contents 

// 

//  Prototypes  for  functions  related  to  manipulating 

II  configurations. 

II 

II  End 


void  list_conf_func(int,  char  *); 
void  dump_conf_summary_func(int, char  *,char  *); 
void  get  Jatest_conf_func(int,  char  *); 

void  attach_vobject_to_conf_func(int,char  *,  char  *,  char  *,  char  *); 
void  update_conf_name_func(int,  char*,  char*,  char*); 
void  get _conf_desc_func(int,  char*,  char*); 
void  insert _conf_func(int,  char*,  char*,  char*,  char*); 
voidupdate_conf_desc_func(char*,  char*,  char*); 
void  get_conf_manager_func(int,  char*,  char*); 
void  update_conf_manager_func(int,  char*,  char*, char*); 
voidget_conf_date_func(int,  char*,  char*); 
void  post_confJog_func(char*,  char*,  char*); 
void  get_confJog_func(int,  char*,  char*); 
void  dump_conf_operators_func(int, char  *,char  *,char  *); 
void  add_conf_operators_func(int, char  *,char  *); 
void  release_conf  Jock _func(int, char  *,char  *); 
void  long Jist_conf_operators_func(int, char  *,char  *); 
void  list_conf_operators_func(int, char  *,char  *); 
void  list_conf_default_operator_func(int, char  *,char  *); 


//  Description 

// 

//  list.conf.func 

II 
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//  Provides  a  list  of  configurations  associated  with  a 
II  designated  prototype. 

II 

II  dump.conf ^summary. func 

II 

II  Provides  summary  information  of  a  configuration  to 

II  to  include:  creation  date,  manager,  version  number  and 

II  default  VOBJECT  name,  and  a  description. 

II 

II  get.latest.conf.func 

II 

II  Provides  the  name  of  the  most  recently  added  configuration. 

II 

II  attach-vobjeci-to-conf-func 

II 

II  Attaches  an  instance  of  the  VOBJECT  class  to  a  configuration. 

II 

II  updaie.confjnamejunc 

II 

II  Changes  the  name  of  a  designated  configuration. 

II 

If  get.conf.desc-func 

II 

II  Provides  a  description  of  the  designated  configuration. 

II 

II  insert.conf.func 

II 

II  Creates  a  new  configuration  and  binds  it  to  a  particular 

II  prototype. 

II 

II  update.conf Aescfunc 

II 

If  Updates  the  description  text  of  a  designated  configuration. 

II 

I/  get.conf. manager. func 

II 

If  Provides  a  configuration  manager's  name. 

II 

II  update -conf .manager .func 

II 

II  Changes  a  configuration  manager's  name. 

II 

II  get.conf. date -func 

II 

II  Provides  the  creation  date  of  a  given  configuration. 

II 

II  post-confJog.func 

II 

I/  Adds  a  timestamped  log  entry  (translated  char  string) 

II  to  a  configuration. 

II 
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//  get.conf.logjunc 

II 

II  Provides  the  text  of  a  configuration  log. 

II 

II  dump. conf. operator s^func 

II 

II  Write  a  copy  of  the  operators  in  a  designated  configuration 

If  to  disk. 

II 

II  add-conf-operators.func 

II 

If  Add  operator  from  disk  to  a  particular  configuration  in  the 

II  database. 

II 

II  release.confJock.func 

II 

II  Provide  a  method  to  release  locked  operators  in  a  given 

II  configuration. 

II 

II  longJist.conf.operators.func 

II 

II  List  all  the  children's  names  and  version  numbers  of  a 

II  given  configuration. 

II 

II  lisi.conf. operator s.func 

II 

II  List  the  immediate  children's  name  and  version  number  of 

II  a  given  configuration. 

II 

II  list.conf.default.operator.func 

II 

If  Provides  the  name  and  version  number  of  the  default  VOBJECT 

II  assigned  to  the  configuration. 

II 

II  End  Description  — ■ 

#endif  //  -CONFFUNC.H 
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//  File  Header 

// •• 

// .Filename :  conffunc.cxx 

//.SCCS  ID :  1.3 

1/ .Release  No....:  1 

I /.Date ;  9/16/91 

/ / .Author :  Garry  Lewis 

II ;  Drew  Dwyer 

1 1.  Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
II  object  file 

static  char  conffunc_cxx_SccsId[]  =  "«(#)confxunc.cxx  1 .3\t9/16/91"; 


//  Contents 

// 

//  list.conf.func 

If  dump .conj ".summary June 

If  gei.latest.conf.func 

II  attach. vohject. to. conf.func 

II  update. conf. name. func 

If  get.conf.desc.func 

If  insert.conf.func 

II  update.conf.desc.func 

II  get.conf.manager.func 

If  update .conj '.manager .func 

//  get.conf.date.func 

II  posi.conf.log.func 

II  get.conf.log.func 

II  dump -conf.operators.func 

II  add.conf.operators.func 

II  release.conf.lock.func 

II  long.list.conf.operators.func 

II  list.conf.operaiors.func 

If  list.conf.default.operator.func 

II 

II  End 


//  Implementation  Dependencies 

#include  < stream.  hxx> 
#include  <Directory .h> 

extern  "C — " 

{ 

#include  <sys/time.h> 
#include  <sys/types.h> 
#include  <stdlib.h> 
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} 

# if ndef  -DIRECTORY _H 
♦include  "directory  .h" 
#endif 

#if ndef  _TREE_H 
#include"tree.h" 
# end if 

#ifndef  _TREENODE_H 
# include  "treenode.h" 
#endif 

#if ndef  _PROTOTYPE_H 
tinclude  "prototype. h" 
#endif 

#if ndef  _THREAD_H 
#include"  thread,  h" 
#endif 

#  if  ndef  _CON  FIG  U  RATION  _H 
#include  "conf  iguration.h" 
#endif 

#ifndef  _CONFFUNC_H 
# include  "conffunc.h" 
#endif 

#ifndef  _DDBDEFINES_H 
# include  "ddbdef  ines  .h" 
#endif 

PROTOTYPE  *protoPtr; 
CONFIGURATION  *configurationPtr; 
extern  THREAD  *threadPtr; 

//  End  Implementation  Dependencies 

ifstream  inputfile; 

void  list_conf_func(int  number_arguments,  char  *argl) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)+5]; 

strcpy  (prototype  jname  ,arg  1 ) ; 
strcat(prototype_name,PROTOTYPE_EXT); 

switch  (number-arguments) 

{ 
case  1: 
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protoPtr  =  (PROTOTYPE*)OC  Jookup(prototypejiame); 

protoPtr  — ►  listConfigurations(); 

break; 
case  3: 
default : 

cerr  <C  "<ERR0R:    extra  arguments   in  list   conf  igurations>\n"; 
} 
} 

void  dump_conf_summary_func(int  number_arguments,  char  *argl,  char  *arg2) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)+5]; 
strcpy(prototype_name,argl); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch(number_arguments) 

{ 
case  2: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

configurationPtr  =  (C0NFIGURATI0N*)0CJookup(arg2); 
if(configurationPtr) 

{ 

configurationPtr  — ►  dumpConfigSummary(); 

} 
else 

{ 

cerr  <  "<ERR0R:  "  <  arg2  <  "  configuration  not  found>\n"; 
cerr  <C  "<Dump  configuration  operation  terminated>\n"; 
return; 

} 
} 
else 

{ 

cerr  <C  "<ERR0R:  "  <C  argl  <C  "  prototype  not  found>\n"; 
cerr  <C  "  Dump  configuration  operation  terminated\n"; 
return; 

} 
break; 

default: 

cerr  <C  "<ERR0R:  extra  arguments  in  dump  configuration  summary>\n"; 

} 
} 

void  getJatestjconf_func(int  number^arguments,  char  *argl) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)+5]; 
strcpy(prototype_name,argl); 
strcat(prototype_name,PROTOTYPEJ:XT); 
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switch  (number_arguments) 

{ 
case  1: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 

protoPtr  — ♦  getDefaultConfigName(); 

break; 
case  3: 
default: 

cerr  <C  "<ERR0R:    extra  arguments   in  get  default  conf igurations>\n"; 

} 
} 

void  attach_vobject_to_conf_func(int  number_arguments,char  *proto_name, 

char  *config_name,char  *operator_name,char  *versionstr) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 

strcpy(prototype_name,proto_name); 

strcat(prototypejiame,PROTOTYPE_EXT); 

switch  (number_arguments) 

{ 
case  3: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

threadPtr  =  (THREAD  *)OC_lookup(operator_name); 

if  (threadPtr) 

{ 

configurationPtr  =  (CONFIGURATION  *)OCJookup(config_name); 
if  (configurationPtr) 

{ 

V.OBJECT  *vobjectPtr; 
vobjectPtr  =  threadPtr— »<urrent(); 
configurationPtr— ►attach  VobjecttoConfig(vobjectPtr); 
configurationPtr— ►putObjectO; 

} 
else 

{ 

cerr  •<  "<Error  getting  configuration  in  attach  vobject  to  config>\n"; 

} 
} 
else 

{ 

cerr  <  "<Error  getting  thread  in  ATTACK.VOBJECT_TQ_CONFIG:  >\nM; 

} 
} 
else 

{ 

cerr  <"< Error  getting  Prototype  in  ATTACH_VOBJECT_TO_ CONFIG:  >\n"; 

} 
break; 
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case  4: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

configurationPtr  =  (CONFIGURATION  *)OCJookup(config_name); 
if  (configurationPtr) 

{ 

V.OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— ►version(atoi(versionstr)); 
configurationPtr— ►  attach  VobjecttoConfig(vobjectPtr); 
configurationPtr— »putObject(); 

} 
else 

{ 

cerr  <C  "<Error  getting  configuration  in  attach  vobject  to  config>\n"; 

} 
} 
else 

{ 

cerr  <  "<Error  getting  thread  in  ATTACH_VOBJECT_TOLCONFIG:  >\n"; 

} 
} 
else 

{ 

cerr  <  "<Error  getting  Prototype   in  ATTACH_VOBJECT_TO_CONFIG:  >\n"; 

} 
break; 
default : 

cerr  <C  "<ERR0R:    invalid  number  args  for  get  vobject  description>\n"; 
} 
} 


void  update_conf_name_func(int  number_arguments,  char  *argl,  char  *arg2,  char  *arg3) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)+5]; 
strcpy(prototype_name,argl); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch  (number_arguments) 

{ 
case  3: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

configurationPtr  =  (C0NFIGURATI0N*)0CJookup(arg2); 

if  (configurationPtr) 
{ 
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configurationPtr  — ►  updateConfigName(arg3); 

} 
else 

{ 

cerr  <  "<Prototype  "  <  argl  <  "does  not  " 
<C  "contain  configuration  "  <C  arg2  <C  ">\n" 

<C  "<  Update  configuration  lame  operation  aborted.  >\n"; 
break; 

} 

} 
else 

{ 

cerr  <  "<Prototype  "  <  argl  <  "  not  found>\n" 

<C  "<update  configuration  name  operation  aborted>"; 

} 
break; 
default: 

cerr  <C  "<ERR0R:    invalid  number  args  for  update  Conf ig  Name>\n"; 
} 


void  get_conf_desc_func(int  number_arguments,  char  *argl,  char  *arg2) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)-f  5]; 
strcpy(prototype_name,argl); 
strcat(prototypejiame, PROTOTYPE  j:XT); 

switch  (number-arguments) 

{ 
case  2: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (protoPtr) 

{ 

configurationPtr  =  (CONFIGURATION  *)0CJookup(arg2); 
if  (configurationPtr) 

{ 

configurationPtr  — ►  getConfigDescription(); 

} 
else 

{ 

cerr  •<  "<Conf  iguration:   "  ■<  arg2  <C  "  is  not  contained  " 
<  "in  prototype  "  <  argl  <  " .  >\n" 

■C  "<get  configuration  Description  Operation  Aborted.  >\n"; 
} 
} 
else 

{ 

cerr  <  "<Prototype  "  <  argl  <  "  not  found>\n" 

<C  "<get   configuration  description  operation  aborted>"; 
} 
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break; 
default: 

cerr  <C  "<ERROR:    invalid  number  args  for  get   configuration  description>\n"; 
} 
} 


void  insert _conf_func(int  number_arguments,  char  *argl,  char  *arg2,  char  *arg3,  char  *arg4) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)+5]; 
strcpy(prototype_name,argl); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch  (number_arguments) 

{ 
case  2: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (protoPtr) 

{ 

configurationPtr  =  (CONFIGURATION  *)0CJookup(arg2); 
if  (IconfigurationPtr) 

{ 

configurationPtr  =  new  C0NFIGURATI0N(arg2); 
protoPtr  — ►  addConfiguration(configurationPtr); 

} 
else 

{ 

cerr  <  "<ERR0R:  Configuration  name  "  <C  arg2  <  "  already  exists !>\nM; 
return; 

} 

} 
else 

{ 

cerr  <  "<Prototype   "  <  argl  <  "  not  found>\n" 
<C  "<no  Configuration  operation  conduct ed>"; 

} 
break; 
case  3: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

configurationPtr  =  (CONFIGURATION  *)OCJookup(arg2); 
if  (IconfigurationPtr) 

{ 

configurationPtr  =  new  C0NFIGURATI0N(arg2,  arg3); 
protoPtr  — ►  addConfiguration(configurationPtr); 

} 
else 

{ 

cerr  <C  "<ERR0R:  Configuration  name  "  <C  arg2  <C  "  already  exists !>\n"; 

return; 
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} 
} 

else 

{ 

cerr  <  "<Prototype  "  <  argl  <  "  not  found>\n" 
<g  "<no  Configuration  operation  conduct ed>"; 

} 
break; 
case  4: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

configurationPtr  =  (CONFIGURATION  *)0CJookup(arg2); 
if  (IconfigurationPtr) 
{ 

configurationPtr  =  new  C0NFIGURATI0N(arg2,  arg3); 
inputfile.open(arg4,  ios::in); 
if  (linputfile) 

{ 

cerr  <C  "<File  with  conf  ig  description  contents  does  not   exist>\n" 
«C  "<Constructing  configuration  w/Name  ft  Manager  only>\n"; 

} 
else 

{ 

configurationPtr  — ►  updateConfigDescription(arg4,inputfile); 

} 
protoPtr  — ►  addConfiguration(configurationPtr); 

inputfile.close(); 

} 
else 

{ 

cerr  •<  "<ERR0R:  Configuration  name  "  <  arg2  <  "  already  exists  !>\n"; 

return; 

} 

} 
else 

{ 

cerr  <  "<Prototype   "  <  argl  <  "  not  found>\n" 
<C  "<no  Configuration  operation  conducted>"; 

} 
break; 
default: 

cerr  <C  "<ERROR:    invalid  number  args  for  insert  conf iguration>\n"; 
} 


void  update_conf_desc  J"unc(char  *argl,  char  *arg2,  char  *arg3) 

{ 

char  *prototype_name  =  new  char  [strlen(argl)+5]; 
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strcpy  (prototype  .name  ,arg  1 ) ; 
strcat(prototype_name,PROTOTYPE_EXT); 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

configurationPtr  =  (C0NFIGURATI0N*)0CJookup(arg2); 
if  (configurationPtr) 

{ 

inputfile.open(arg3,  ios::in); 
if  (linputfile) 

{ 

cerr  ^  "<File  with  conf ig  description  contents  not  found>\n" 
•C  "<Aborting  update  configuration  operation>\n"; 

} 
else 

{ 

configurationPtr  — »  updateConfigDescription(arg3,  inputfile); 
inputfile.closeQ; 

} 
} 
else 

{ 

cerr  <  "<Prototype  "  <  argl  <  "does  not  " 
<C  "contain  configuration  "  <C  arg2  <C  ">\n" 

<IC  "<  Update  configuration  Description  operation  aborted.  >\n"; 

} 
} 
else 

{ 

cerr  <  "<Prototype   "  <  argl  <  "  not  found>\n" 
<C  "<no  Configuration  operation  conducted>"; 
} 
} 


void  get.conf  jnanagerJ"unc(int  number-arguments,  char  *argl,  cbar  *arg2) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)+5]; 
strcpy(prototype  _name, argl); 
strcat(prototypejiame,PROTOTYPEJ:XT); 

switch  (number-arguments) 

{ 
case  2: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype-name); 

if  (protoPtr) 

{ 

configurationPtr  =  (CONFIGURATION  *)OCJookup(arg2); 

if  (configurationPtr) 
{ 
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configurationPtr  — ►  getConfigManager(); 

} 
else 

{ 

cerr  <C  "< Configuration:   "  <C  arg2  <;  "  is  not  contained  " 
<  "in  prototype  "  <  argl  <  ".>\n" 

<C  "<get  configuration  Manager  Operation  Aborted.  >\n"; 
} 
} 
else 

{ 

cerr  <  "<Prototype   "  <  argl  <  "  not  found>\n" 

<C  "<get  configuration  manager  operation  aborted>"; 

} 
break; 
default: 

cerr  <C  "<ERR0R:    invalid  number  args  for  insert  conf iguration>\n"; 
} 


void  updatejConf_manager_func(int  number_arguments,  char  *argl,  char  *arg2,  char  *arg3) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)+5]; 
strcpy(prototype_name,argl); 
strcat(prototypejiame,PROTOTYPE_EXT); 

switch  (number_arguments) 

{ 
case  3: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

configurationPtr  =  (C0NFIGURATI0N*)0CJookup(arg2); 
if  (configurationPtr) 

{ 

configurationPtr  — ►  updateConfigManager(arg3); 

} 
else 

{ 

cerr  <  "<Prototype   "  <  argl  <  "does  not   " 
<  "contain  configuration  "  <  arg2  <  ">\n" 

•C  "<Update  configuration  Manager  operation  aborted. >\n"; 
} 
} 
else 

{ 

cerr  <  "<Prototype  "  <  argl  <  "  not  found>\n" 

■C  "<update  configuration  Manager  operation  aborted>"; 

} 
break; 
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default : 

cerr  <C  "<ERROR:    invalid  number  args  lor  update  Conf  ig  Manager>\n"; 
} 
} 


void  get_conf_date_func(int  number_arguments,  char  *argl,  char  *arg2) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)+5]; 
strcpy(prototype_name,argl); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch  (number-arguments) 

{ 
case  2: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

configurationPtr  =  (C0NFIGURATI0N*)0CJookup(arg2); 
if  (configurationPtr) 

{ 

timet  systemtime  =  configurationPtr  — *•  getConfCreationDate(); 
cout  <C  ctime(&;systemtime)  <C  "\n"! 

} 
else 

{ 

cerr  <  '^Configuration  "  <C  arg2  <C  "  not  found>\n" 
<C  "<no  Configuration  operation  conduct ed>"; 
} 
} 
else 

{ 

cerr  <  "<Prototype   "  <  argl  <  "  not  found>\n" 

<C  "<find  configuration  creation  date  operation  aborted>"; 

} 
break; 
default: 

cerr  <C  "<ERR0R:    invalid  number  args  to  get   configuration  creation  date>\n"; 
} 
} 


void  post_confJog_func(char  *argl,  char  *arg2,  char  *arg3) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)-f-5]; 
strcpy  (prototype  _name  ,arg  1 ) ; 
strcat(prototypejiame,PROTOTYPE_EXT); 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 
{ 
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configurationPtr  =  (C0NFIGURATI0N*)0CJookup(arg2); 
if  (configurationPtr) 

{ 

inputfile.open(arg3,  ios::in); 
if  (linputfile) 

{ 

configurationPtr  — ►  addtoConfigLog(arg3); 

} 
else 

{ 

configurationPtr  — *  addtoConfigLog(inputfile); 
inputfile.close(); 
} 
} 
else 

{ 

cerr  <  "<Prototype   "  <  argl  <  "does  not   " 
<C  "contain   configuration  "  <C  arg2  <C  ">\n" 

<C  "<Update   configuration  Log  operation  aborted.  >\n"; 

} 
} 
else 

{ 

cerr  <  "<Prototype   "  <  argl  <  "  not  found>\n" 
<C  "<no  Configuration  operation  conduct ed>"; 

} 
} 


void  get_confJog_func(int  number_arguments,  char  *argl,  char  *arg2) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)+5]; 
strcpy(prototype_name,argl); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch  (number-arguments) 

{ 
case  2: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (protoPtr) 

{ 

configurationPtr  =  (CONFIGURATION  *)0CJookup(arg2); 
if  (configurationPtr) 

{ 

configurationPtr  — ►  getConfigLog(); 

} 
else 

{ 

cerr  <C  "<Conf  iguration:   "  <C  arg2  ■<  "  is  not  contained  " 

<  "in  prototype  "  <  argl  <  ".>\n" 

<C  "<get  configuration  log  operation  aborted.  >\n"; 
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} 
} 

else 

{ 

cerr  <  "<Prototype  "  <  argl  <  "  not  iound>\n" 
<C  "<get   configuration  log  operation  abort ed>"; 
} 


void  dump_conf_operators_func(int  number_arguments,char  *proto_name,char  *conf,char 
*file_write_option) 

{ 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy  (prototype_name, proto_name); 
strcat(prototypejiame,PROTOTYPE_EXT); 

switch  (number_arguments) 

{ 
case  3: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (protoPtr) 

{ 

configurationPtr  =  protoPtr— >getConfiguration(conf); 
if  (configurationPtr) 

{ 

V  .OBJECT  *vobjectPtr  =  configurationPtr— ►getDefaultVobject(); 
if  (vobjectPtr) 

{ 

long  vobjectJocktime  =0; 

vobjectJocktime  =  vobjectPtr— ►getLockTime(); 

if  (vobject  Jocktime>0)  //  prevent  checkout 

{   m 

if  (strcmp(file_write_option,"H")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERR0R:    Module   "  <  vobjectPtr— ►getNodeName() 

<  "   locked  by    :      "  <  vobjectPtr— >getWorker() 
<C  "   Resetting  write  option  to  read-only>\n"; 
strcpy(file_write-option,"r"); 

} 
cerr  <C  "<Caution:      "  <C  vobjectPtr— ►getNodeName() 
<  "   is  locked.  >  \n"  <  "Date  Locked:     " 
<C  ctime(&vobject  Jocktime) 

<C  "Subtree  checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <  "MODENAHE >   "  <  vobjectPtr->getNodeName() 

<  "\nVersion:      "  <  vobjectPtr— ►getVersionNumber()  <"\n\n"; 
Boolean  file_operation .successful  =  FALSE; 
file.operationjsuccessful  = 
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vobjectPtr  -+  checkoutCOMPONENTNode(file.write_option); 
if  ((file_operation_successful)  &&: 

((strcmp(file_writejoption,"W")==0)  || 
(strcmp(file_write.option,"s")==0))) 

{ 

vobjectPtr  — ►  setLockQ;  //  set  root  lock 
vobjectPtr  — *  setWorker(); 
vobjectPtr  — +  resetLastOpFalse(); 
vobjectPtr  — +putObject(); 

} 
if  (file_operation  .successful) 

vobjectPtr  — ►  dumpSubtree(file_writejoption);  //  dump  rest  of  tree 
else 

cerr  <C  "<Error  checking  out   "  <C  vobjectPtr  — fgetNodeName() 
•C  "  Aborting  dump_vobject_tree_func>\n"; 

} 
else 

cerr  <C  "<Error:   No  Vobject  is  attached  to  dump  conf iguration>\n"; 

} 
else 

{ 

cerr  <C  "<Error  getting  configuration  in  dump  configuration  operators :  >\n"; 

} 
} 
else 

{ 

cerr  <C  "<Error  getting  Prototype  in  dump  configuration  operators:  >\n"; 

} 
break; 

default: 

cerr  <C  "<ERROR:  invalid  number  args  for  dump  configuration  operators>\n"; 

} 


) 


void  add_conf_operators_func(int  number_arguments,char  *proto_name,char  *conf) 

{ 

char  *prototypejiame  =  new  char  [strlen(proto_name)+5]; 
strcpy  (prototype  .name, proto  .name); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch  (number^arguments) 

{ 
case  2: 

protoPtr  =  (PROTOTYPE*)OC-lookup(prototype_name); 

if  (protoPtr) 

{ 

configurationPtr  =  protoPtr— ►getConfiguration(conf); 
if  (configurationPtr) 

{ 

V.OBJECT  *vobjectPtr  =  configurationPtr-^getDefaultVobject(); 
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if  (vobjectPtr) 

{ 

DIRECTORY  *capsdirectory; 

capsdirectory  =  new  DIRECTORY(); 

char  *operator_name  =  new  char  [strlen(vobjectPtr— »^getName())+l]; 

strcpy  (operator  _name,  vobjectPtr— >getName()); 

capsdirectory— >read  .directory  (operator  .name); 

capsdirectory— ►updatetimestamp(); 

TREENODEJinkedlist  operatorList  =  capsdirectory— ►getOperatorList(); 

TREENODE  *rootnode  =  capsdirectory— +findjtreenode(operator_name); 

TREENODE  *tree_root  =  new  TREENODE(rootnode,NULL); 

TREE  *workingtree  =  new  TREE(tree_root,  operator  .name); 

workingtree— >build_tree(treej,oot,  operatorList); 

cerr  <  "CHECKIH~>   "  <  operator jiame  <  "\n"; 

V.OBJECT  *new  .parent  =  (V.OBJECT  *)0; 

new_parent=  vobjectPtr— +getParent(); 

V.OBJECT  *new_root  =  tree  joot— >checkin  Jiode(new parent); 

if  (!new_root) 

{ 

cerr  <C  "<Error:      Could  not   establish  new_root   in" 

<C  " add.conf  .operator s.func.     Aborting.  >\n"; 
break; 

} 
newjoot— ►setNodeName(tree_root— ►getnameO); 

tree  .root— ►checkin  _subtree(new  .root) ; 

} 
else 

cerr  •<  "<Error:   No  Vobject  is  attached  to  this  conf  iguration>\n"; 

} 
else 

{ 

cerr  <C  "<Error  getting  configuration  in  list  configuration  operators : >\n"; 

} 
} 
else 

{ 

cerr  <C  "<Error  getting  Prototype  in  list  configuration  operators :  >\n"; 

} 

break; 
default : 

cerr  <C  "<ERROR:  invalid  number  args  for  list  configuration  operators>\n"; 
} 


} 


void  release_conf  Jock_func(int  number_arguments,  char  *proto_name, 

char  *conf) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 

strcpy  (prototype  _name,proto  .name); 

strcat(prototypejiame,PROTOTYPE_EXT); 
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switch  (number_arguments) 

{ 
case  2: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

configuration  Ptr  =  protoPtr— ►getConfiguration(conf); 
if  (configurationPtr) 

{ 

V  .OBJECT  *vobjectPtr  =  configurationPtr->getDefaultVobject(); 
if  (vobjectPtr) 

{  . 

if  (vobjectPtr— ►releaseLock()) 

{ 

vobjectPtr— ►putObjectQ; 
vobjectPtr  — »  releaseLockSubtree(); 

} 
} 
else 

cerr  <C  "<Error:   Ho  Vobject  is  attached  to  this  conf iguration>\n"; 

} 
else 

{ 

cerr  <C  "<Error  getting  configuration  in  Release  configuration  Lock:>\n"; 

} 

} 
else 

{ 

cerr  <C  "<Error  getting  Prototype   in  Release  configuration  Lock:>\n"; 

} 
break; 
default: 

cerr  <C  "<ERR0R:    invalid  number  args  for  Release  configuration  lock>\n"; 
} 
} 

void  longJist_conf_operators_func(int  number_arguments,  char  *proto_name, 

char  *conf) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)-(-5]; 

strcpy(prototype_name,proto_name); 

strcat(prototypejiame,PROTOTYPE_EXT); 

switch  (number-arguments) 

{ 
case  2: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

configurationPtr  =  protoPtr— t-getConfiguration(conf); 
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if  (configurationPtr) 

{ 

V  .OBJECT  *vobjectPtr  =  configurationPtr— getDefaultVobject(); 
if  (vobjectPtr) 

{ 

//  cerr  <<  "Operator:  "; 

II  cout  «  vobjectPtr->getName(); 

II  //************ 

//  //  following  for  loop  provides  spacing... 

II  //  *********** 

//  int  i=0; 

II  for  (t=0;i<(PRINT. VERSION.LOCATION-strlen(vobjeciPlr->getName()));i++) 

II  cout  « 

II  cerr  «  "Version:  "; 

II  cout  «  vobjectPir->getVersionNumber(); 

II  cout  «  "\n"; 

II  timet  locktime  =  vobjectPtr->getLockTime(); 

If  cerr  «  "Lockttme  is:  "  «  ctime(&locktime).«  "\n"; 

vobjectPtr  — ►  longlistOperatorNames(); 

} 
else 

cerr  <C  "<Error:   No  Vobject  is  attached  to  this  conf iguration>\n"; 

} 
else 

{ 

cerr  <C  "<Error  getting  configuration  in  list  configuration  operators :  >\n"; 

} 
} 
else 

{ 

cerr  ■<  "<Error  getting  Prototype   in  list   configuration  operators :  >\n"; 

} 
break; 
default: 

cerr  <C  "<ERROR:    invalid  number  args  for  list   configuration  operators >\n"; 
} 


void  list_conf_operators_func(int  number-arguments,  char  *proto_name, 

char  *conf) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)-(-5]; 

strcpy(prototype_name,proto_name); 

strcat(prototypejiame,PROTOTYPE_EXT); 


switch  (number_arguments) 

{ 
case  2: 

protoPtr  =  (PROTOTYPE*)OC-lookup(prototype_name); 
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} 


if  (protoPtr) 

{ 

configurationPtr  =  protoPtr— ►getConfiguration(conf); 
if  (configurationPtr) 

{ 

V -OBJECT  *  vobjectPtr  =  configurationPtr— ►getDefaultVobject(); 
if  (vobjectPtr) 

{ 

char  *name=vobjectPtr— ►getName(); 

int  version  =vobjectPtr— ►getVersionNumber(); 

cerr  <C  "Operator:      "; 

cout  <C  name; 

//************ 

//  Added  following  for  statement  for  spacing... 

I J  *********** 

int  i=0; 

for  (i=0;i<(PRINT.VERSION_LOCATION  - 

strlen(  vobjectPtr— ►getNodeName()));i++) 
cout  <  "   "; 
cerr  <C  "\nVersion:      "; 
cout  <C  version  <C  "\n"; 

time.t  locktime  =  vobjectPtr— +getLockTime(); 
cerr  <  "Locktime  is:      "  <  ctime(fclocktime)  <  "\n"; 
vobjectPtr  — ►  listOperatorNames(); 

} 
else 

cerr  <C  "<Error:   No  Vobject  is  attached  to  this  conf  iguration>\n"; 

} 
else 

{ 

cerr  <C  "<Error  getting  configuration  in  list  configuration  operators:  >\n"; 

} 
} 
else 

{ 

cerr  <C  "<Error  getting  Prototype   in  list   configuration  operators :  >\n"; 

} 
break; 
default : 

cerr  <C  "<ERR0R:    invalid  number  args  for  list   configuration  operators>\n"; 
} 


void  list_conf.default_operator_func(int  number_arguments,  char  *proto_name, 

char  *conf) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 

strcpy(prototype_name,proto_name); 

strcat(prototype_name,PROTOTYPE-EXT); 

switch  (number_arguments) 
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{ 

case  2: 

protoPtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (protoPtr) 

{ 

configurationPtr  =  protoPtr— ►getConfiguration(conf); 
if  (configurationPtr) 

{ 

V.OBJECT  *vobjectPtr  =  configurationPtr— getDefaultVobject(); 
if  (vobjectPtr) 

{ 

char  *name=vobjectPtr— ►getName(); 

int  version  = vobjectPtr— »-getVersionNumber(); 

cerr  <C  "Operator:      "; 

cout  <C  name; 

//************ 

//  Added  following  for  statement  for  spacing... 

J  J  *********** 

int  i=0; 

for  (i=0;i<(PRINT_VERSION_LOCATION  - 

strlen(vobjectPtr— ►getName()));i++) 
cout  <  "   "; 
cerr  <§C  "   Version:      "; 
cout  <  "   "  <  version  <  "\n"; 

} 
else 

cerr  <C  "<Error:   No  Vobject  is  attached  to  this  conf iguration>\n"; 

} 
else 

{ 

cerr  <C  "<Error  getting  configuration  in  list  " 
<C  "conf igurat ion  default  operator:  >\n"; 
} 
} 
else 

{ 

cerr  <C  "<Error  getting  Prototype  in  list  " 
^"configuration  default  operator :  >\n"; 

} 
break; 
default: 

cerr  <C  "<ERROR:  invalid  number  args  for  list  " 
«C  "configuration  default  operator>\n"; 
} 
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//  File  Header 

// •• 

//.Filename :  configuration. h 

//.SCCS  ID :  1.3 

// .Release  No....:  1 

//.Date :  9/16/91 

/ / .Author :  Garry  Lewis 

/ / :  Drew  Dwyer 

//.Compiler :  Glockenspiel  C++  2.1 

II -• 

//  End  header  comments 


#ifndef  _CONFIGURATION_H 
#define  _CONFIGURATION_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in  object  file 

static  char  configuration_h_SccsId[|  =  "O(#)conf  iguration.h  1 .3\t9/16/91"; 


//  Contents 

// 

//  CONFIGURATION 

II 

1/  Description 

II 

II  Defines  class  CONFIGURATION 

II 

II  End — 


//  Implementation  Dependencies  — 

#include  <Object.h> 
#include  <Ref erence.h> 
#include  <Dictionary .h> 
#include  <stream.hxx> 

extern  "C — " 

{ 

#include  <sys/time.h> 

#include  <sys/types.h> 

} 

#include  "Ref  erenceMacros  .h" 
//  End  Implementation  Dependencies 
II  Interface  Dependencies 


#ifndel  _TEXT.OBJECT_H 
#include  "text.object  .h" 
#endif 
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#ifndef  _VERSIONED_OBJECT_H 
#include  "versioned_object  .h" 
#endif 

//  End  Interface  Dependencies 


TypeCheckReference(V-ObjectReference,  Reference,  VDBJECT); 
TypeCheckReference(LogReference,  Reference,  TEXT  .OBJECT); 
TypeCheckReference(Desc2Reference,  Reference,  TEXT  .OBJECT); 

#def  ine  DEFAULT.MANAGER  "" 

//  Class  // 

class  CONFIGURATION  :  public  Object 

{ 
private: 

char  config_status; 
char  *config_manager; 
time.t  ConfCreationDate; 
int  config_num_vobjects; 
LogReference  configJog.entry; 
Desc2 Reference  config.description; 
V.ObjectReference  the Versioned .Object; 

public: 

CONFIGURATION(APL  *); 

CONFIGURATION(char  *name,  char  *manager=DEFAULT_MANAGER); 

virtual  void  Destroy(Boolean  aborted = FALSE); 

virtual  Type  *getDirectType(); 

void  getConfigName(); 

char  *name(); 

void  getConfigStatus(); 

void  getConfigManager(); 

void  getConfigLog(); 

void  getConfigDescription(); 

void  dumpConfigSummary(); 

void  HstConfigOperators(); 

void  updateConfigManager(char  *new_config_manager); 

void  updateConfigName(char  *new_config_name); 

void  updateConfigStatus(char  new_config_status); 

void  addtoConfigLog(char  *new_log_entry); 

void  addtoConfigLog(ifstream&); 

void  updateConfigDescription(char  *,  ifstream&  ); 

V.OBJECT  *CONFIGURATION::updateVobjectAttachment(); 

void  attachVobjecttoConfig(V_OBJECT*); 

time.t  setConfCreationDate(); 

time.t  getConfCreationDateQ; 

V.OBJECT  *getDefaultVobject(); 

~CONFIGURATION()  {  Destroy(FALSE);  } 
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}; 


//  Description 

// 

//  Defines  a  CONFIGURATION  class. 

II 

II  Constructor 

II 

II  configuration  -A  PL 

II 

II  ONTOS  required  constructor 

II 

II  configuration 

II 

II  constructs  a  configuration  object  with  the  given  name, 

II  and  manager. 

II 

II  Public  Members 

II 

II  destroy 

II 

II  Used  to  cleanup  memory  during  deletion  and  transaction  aborts. 

II 

II  getDirectType 

II 

II  Returns  the  ONTOS  type  for  this  class. 

II 

II  getConfigN ame; 

II 

II  Sends  the  configuration  name  to  standard  out. 

II 

II  name 

II 

II  Returns  a  pointer  to  the  configuration  name. 

II 

II  getConfigStatus 

II 

II  Sends  the  configuration  status  to  standard  out. 

II 

II  getConfigManager 

II 

If  Sends  the  manager's  name  for  this  particular  configuration. 

II 

II  getConfigLog 

II 

II  Sends  the  configuration  log  to  standard  out. 

II 

II  getConfigDescription 

II 
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//  Sends  the  configuration  description  to  standard  output. 

II 

II  dumpConfigSummary 

II 

If  Provides  name,  version  number  of  root  vobject  ,  date  and 

II  description  of  configuration. 

II 

II  HstConfigOperators 

II 

II  list  the  name  of  component  operators  in  a  configuration. 

II 

II  updaieConfigManager 

II 

II  Changes  the  manager's  name  for  this  configuration. 

II 

II  updateConfigName 

II 

If  Changes  the  configuration  name. 

II 

II  updateConfigStatus 

II 

If  Changes  the  configuration  status  field. 

II 

II  addtoConfigLog 

II 

II  A  log  to  maintain  a  history  of  the  configuration. 

II 

II  updateConfigDescription 

II 

II  Replaces  the  existing  description  if  one  exist  or  adds  a  new  description. 

II 

II  attachVobjecttoConfig 

II 

II  Adds  a  verstoned  object  to  configuration. 

II 

If  setConfCreationDate 

II 

II  Time  stamp  this  object  with  the  current  system  time. 

II 

II  getConfCreationDate 

II 

II  Displays  the  time  an  instance  of  this  class  was  created. 

II 

II  gelDefaultVobject 

II 

II  Returns  a  pointer  to  the  attach  vobject. 

II 

II  ~ configuration 

II 

If  A  destructor  for  the  configuration  class. 

II 


172 


//  End 

#endif  //  -CONFIGURATION.!! 
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//  File  Header 

//•••• : 

// .Filename :  configuration. cxx 

//.SCCS  ID :  1.3 

/ / .Release  No....:  1 

//.Date :  9/16/91 

/ / .Author ;  Garry  Lewis 

1/ :  Drew  Dwyer 

//.Compiler ;  Glockenspiel  C++  2.1 

II : 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
II  object  file 

static  char  configuration_cxx_SccsId[]  =  "C(#)conf  iguration.cxx  1 .3\t9/16/91"; 

//  Contents 

// 

//  CONFIGURATION-CONFIGURATION  ONTOS  constructor 

II  CONFIGURATION::CONFIGURATION  new  instance 

II  CONFIGURATION -Destroy 

II  CONFIG URA TIONr.getDirect Type 

II  CONFIGURATIONr.getConfigName 

II  CONFIGURATION::name 

II  CON FIGU RATION ::getConfigStatus 

II  CON  FIGU  RATION  r.getConfigManager 

II  CON  FIGU  RATION  ::getConfiglog 

II  CON  FIGU  RATION  r.getConfigDescription 

II  CONFIGURATION r.dumpConfigSummary 

II  CONFIG  URA  TIONr.listConfigOperators 

II  CONFIGURATION::updateConfigManager 

II  CONFIGURATIONr.updaieConfigName 

II  CONFIG URATIONr.updaieConfigStatus 

II  CONFIGURATIONr.addioConfigurationLog  -  string 

II  CONFIGURATIONr.addtoConfiguraiwnLog  -file 

II  CONFIGURATION::updaieConfigDescription 

II  CON  FIGU  RATION  ::attach  VobjecttoConfig 

II  CON  FIGU  RATION  ::setConfCreatwnDate 

H  CONFIGURATIONr.geiConfCreaiionDaie 

II  CON  FIGU  RATION  r.getDefault  Vobject 

II  CONFIG  URA  TION::~  CONFIG  URA  TION 

II 

II  Description 

II 

If  Implementation  of  class  CONFIGURATION  member  functions. 

II 

II  End 

//  Implementation  Dependencies -— — - 
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#include  <GlobalEntities.h> 
#include  <Directory .h> 

# include  < stream. hxx> 

extern  "C~" 

{ 

#include  <string.h> 

} 

//  End  Implementation  Dependencies 

II  Interface  Dependencies 


#ifndef  _CONFIGURATION_H 
#include  "conf iguration.h" 
#endif 

Jfiindef  _DDBDEFINES_H 
#include  "ddbdef  ines  .h" 
#endif 

//  End  Interface  Dependencies  — 


extern  Type  *V_OBJECT_OType; 
extern  Type  *CONFIGURATION_OType; 

//  ONTOS  required  constructor  // 

CONFIGURATION::CONFIGURATION(APL  *theAPL)  :  (theAPL) 
{ 

}; 

//  New  Instance  Constructors  // 

CONFIGURATION::CONFIGURATION(char  *name, 

char  *manager):(name) 

//  Summary 

// 

//  Constructs  a  persistent  CONFIGURATION  object.  This  object 

II  contains  management  (header  information)  about  a  CONFIGURATION 

II  and  a  select  group  of  modules  in  the  configuration. 

II 

If  Parameter 

II 

II  name 

II 

II  A  pointer  to  a  character  string. 

II 

II  manager 

II 


175 


//  A  pointer  to  a  character  string. 

II 

II  Functional  Description 

II 

II  Copies  the  manager's  name  into  private  data  member.  Initializes 
II  the  description  and  log  entry  to  null  and  creates  a  dictionary  to 
II  hold  the  configuration  modules. 

II 

II  End 


initDirectType(CONFIGURATION.OType); 
config .manager  =  new  char[strlen(manager)+l]; 
strcpy(config_manager,  manager); 
configjstatus  =  'A'; 
config  jium.vobjects  =  0; 
ConfCreationDate  =  setConfCreationDate(); 
config_description.initToNull(); 
config  Jog_entry.initToNull() ; 
theVersioned  .Object. initToNull(); 

putObject(); 

} 

//  End  Constructor  for  CONFIGURATIONr.CONFIGURATION 

II  Member  Functions  // 

void  CONFIGURATION ::Destroy(Boolean  aborted) 

{ 

delete  config  .manager; 
if  (aborted) 

{ 

Object  "Destroy  (aborted); 

} 
} 

Type  *CONFIGURATION::getDirectType() 

{ 
return  CONFIGURATION.OType; 

} 

voidCONFIGURATION::getConfigName() 

{ 

Directory  *directory; 
char  *name; 

if(!this) 

{ 

cerr  <  "<ERR0R:  cannot  get  the  name  of  a  null  CONFIGURATION>\n"; 
return; 
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} 

name  =  Name(); 

OC_getNameComponents(name,  ^directory,  fcname); 
cout  <C  name  <C  "\n"; 
} 

char  *CONFIGURATION::name() 

{ 
Directory  *directory; 
char  *name; 

name  =  Name(); 

OC_getNameComponents(name,  &;directory,  fcname); 
return  name; 
} 

voidCONFIGURATION::getConfigStatus() 

{ 
if(!this) 

{ 

cerr  <C  "<ERR0R:    cannot  get  the  Status  of  a  null  Conf iguration>\n"; 
return; 

} 
cout  <C  config_status  <C  "\n"; 

} 

voidCONFIGURATION::getConfigManager() 

{ 
if(!this) 

{ 

cerr  <C  "<ERROR:    cannot  get  the  Manager  of  a  null  Conf  iguration>\n"; 
return; 

} 
cout  <C  config_manager  <C  "\n"; 

} 

void  CONFIGURATION ::getConfigLog() 

{ 

if(!this) 

{ 

cerr  <C  "<ERR0R:  cannot  dump  the  Log  of  a  null  Conf  iguration>\n"; 
return; 

} 

if  (IconfigJog.entry) 

{ 

cerr  <C  "<Cannot  display  an  empty  log>\n"; 
return; 

} 
else 

{ 
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TEXT.OBJECT*  myTextObject  =  (TEXT.OBJECT*)configJogjsntry.Binding(this); 
myTextObject  — *  text(cout); 

} 
} 

void  CON  FIG  U  RATION :  :getConfigDescription( ) 

{ 
if(!this) 

{ 

cerr  <C  "<ERROR:    cannot  get  the  description  of  a  null  Conf  iguration>\n"; 
return; 

} 
if  (!config_de8cription) 

{ 

cerr  <tC  "<This  configuration  does  not  contain  a  description>\n"; 
return; 

} 
else 

{ 

TEXT_OBJECT*  myTextObject  =  (TEXT.OBJECT*)config .description. Binding(this); 

myTextObject  — >  text(cout); 
} 
} 


voidCONFIGURATION::dumpConfigSummary() 

{ 
int  i=0; 

cerr  <  "Creation  Date:      "; 
cout  <C  ctime(fcConfCreationDate)  -C  "\n"; 
cerr  <C  "Manager:      "; 
getConfigManager(); 
if(!theVersioned_Object) 

{ 

cerr  <  "VOBJECT  Name:      "; 

cerr  <  "HONE  ASSIGNED   "; 

for  (i=0;i<PRINT_VERSION_LOCATION  -strlen("VOBJECT  Name:      NONE  ASSIGNED   ");i++) 

cout  <  "   "; 
cerr  •<  "Version  Number:      "; 
cerr  <  "NONE\n"; 

} 
else 

{ 

V_OBJECT  *vobjectPtr  =  (V_OBJECT*)  theVersionedl)bject.Binding(this); 

cerr  <  "VOBJECT  Name:      "; 

cout  <C  vobjectPtr  — ►getNameO; 

for  (i=0;i<PRINT_VERSION_LOCATION  -  strlen(vobjectPtr^getName());i++) 

cout  <C  "   "; 
cerr  <C  "Version  Number:      "; 
cout  <C  vobjectPtr  — ►  getVersionNumber(); 
} 
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cout <C  "Configuration  Description  follows: 
\n==================================\n»; 

getConfigDescription(); 

} 

voidCONFIGURATION::listConfigOperators() 

{  m 
if(!theVersioned_Object) 

{ 

cerr  <;  "This  configuration  does  not  contain  a  v_object"; 

} 
else 

{ 

V.OBJECT  *theVObjectPtr  = 

(V.OBJECT*)  theVersioned.Object.Binding(this); 
theVObjectPtr  ->  getVObjName(); 
theVObjectPtr  — ►  HstOperatorNames(); 
} 
} 

void  CONFIGURATION::updateConfigManager(char  *new_config_manager) 

{ 
if(!this) 

{ 

cerr  <C  "<ERROR:    cannot   change  the  manager  of   a  null  CONFIGURATION>\n"; 
return; 

if ( config_m  an  ager ) 

{ 

strcpy(config_manager,  ""); 

} 

config_manager  =  new  char[strlen(new_config_manager)-f-l]; 
strcpy(config_manager,  new_config_manager); 
putObject(); 

} 

void  CONFIGURATION ::updateConfigName(char  *new_config_name) 

{ 
if(!this) 

{ 

cerr  <  "<ERR0R:  cannot  change  the  name  of  a  NULL  CONFIGURATION>\n"; 

return; 

} 

Name(new_config_name) ; 
} 


void  CONFIGURATION ::updateConfigStatus(char  new.config_status) 
{ 
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if(!this) 

{ 

cerr  <  "<ERROR:  cannot  change  the  status  of  a  null  CONFIGURATION>\n"; 

return; 

} 
configjstatus  =  newjconfig-status; 

} 


void  CONFIGURATION::addtoConfigLog(char  *newJog.entry) 

{  , 
if (!  config  Jog.entry ) 

{ 

TEXT_OBJECT  *textObjectPtr  =  new  TEXTDBJECT(); 
textObjectPtr  — ♦  append(new  Jogjentry); 
config Jog_entry.Reset(textObjectPtr,  this); 

} 
else 

{ 
TEXT.OBJECT  *textObjectPtr  = 

(TEXT.OBJECT*)  config Jog_entry.Binding(this); 
textObjectPtr  — »  append(new Jogjsntry); 

} 
putObject(); 

} 

void  CONFIGURATION::addtoConfigLog(ifstream&  input_file_stream) 

if(!  config  Jog.entry) 

{ 
TEXT.OBJECT  *textObjectPtr  =  new  TEXTDBJECT(); 
textObjectPtr  — »  append(input  Jile-stream); 
config_description.Reset(textObjectPtr,  this); 

} 
else 

{ 
TEXT.OBJECT  *textObjectPtr  = 

(TEXT.OBJECT*)  configJog.entry.Binding(this); 
textObjectPtr  — +  append(input  Jile_stream); 

} 
putObject(); 

} 


void  CONFIGURATION ::updateConfigDescription(char  *fileName,  ifstreamfc  input-file_stream) 

{. 

if(!config_description) 

{ 

TEXT.OBJECT  *textObjectPtr  =  new  TEXTDBJECT(); 
textObjectPtr  — ►  append(fileName,  input_file_stream); 
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config_description.Reset(textObjectPtr,  this); 

} 
else 

{ 
TEXT.OBJECT  *textObjectPtr  = 

(TEXT.OBJECT*)  config.description.Binding(this); 
textObjectPtr  ->  resetTheText(); 
textObjectPtr  — ♦  append(fileName,  input-file jstream); 

} 
putObject(); 

} 

V -OBJECT  *CONFIGURATION::updateVobjectAttachment() 

{ 
if(!this) 

{ 

cerr  <C  "<ERROR:    cannot   set  the  v_object  of  a  null  conf  iguration\n"; 
return  NULL; 

} 
V -OBJECT  *  vobjectPtr  =  getDefaultVobject(); 
if  (vobjectPtr) 

{ 

THREAD  *threadPtr  =  (THREAD  *)OCJookup(vobjectPtr^getName()); 
if  (threadPtr) 

{ 

vobjectPtr  =  threadPtr— >-current(); 
theVersioned_Object.Reset(  vobjectPtr,  this); 
putObject(); 

} 
} 
return  vobjectPtr; 

} 

void  CONFIGURATION::attachVobjecttoConng(V.OBJECT  *theV  .Object) 

{ 

if(!this) 

{ 

cerr  <C  "<ERROR:    cannot   set  the  v.object   of   a  null  conf  iguration\n"; 
return; 

} 
if  (ItheV -Object) 

{ 

cerr  <d  "<ERROR:    cannot   give  to  a  configuration  a  null   v_object>\n"; 

} 
theVersioned_Object.initToNull(); 
the  Versioned_Object.Reset(theV  .Object,  this); 
} 

1 1 Member  Function  // 

timet  CONFIGURATION::setConfCreationDate() 
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{ 

timet  mytloc=0; 
timet  theTime; 

return  theTime  =  time(mytloc); 
} 

//  End 


//  Member  Function  // 

timet  CONFIGURATION::getConfCreationDate() 

{ 
return  ConfCreationDate; 

} 

//  Member  Function  // 

V.OBJECT  *  CONFIGURATION::getDefaultVobject() 

{ 

return  (V.OBJECT  *)(Entity  *)theVersioned_Object.Binciing(this); 

} 

//  End 

//  end  functions 
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//  File  Header 

// •• 

// .Filename ;  ddbdefines.h 

I /.SCCS  ID :  1.3 

// .Release  No....:  1 

//.Date :  9/16/91 

1/ .Author :  Garry  Lewis 

II :  Drew  Dwyer 

I /.Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments  — 


#ifndef  _DDBDEFINES_H 
#def  ine  _DDBDEFINES_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in  object  file 

static  char  ddbdefines_h_SccsIdQ  =  "C(#)ddbdef ines.h  1.3\t9/16/91"; 

//  Contents 

// 

//  Number  Defines  for  Evaluations  functions 

II 

1/  Description 

II 

II  These  ^defines  are  all  designed  just  to  pass  information  back  and  forth 
II  between  the  main  program  and  the  modules  which  evaluate  the  command  line 
II  for  what  function  to  run.   There  are  basically  three  types  of  function 
II  arguments  CONFIGURATION  arguments  -  beginning  with  a  'C,  PROTOTYPE 
II  arguments  -  beginning  with  a  'P\  and  V OBJECT  functions  -  beginning 
II  with  a  'V.  All  arguments  are  exactly  3  characters  in  length  and  must 
II  conform  to  one  of  the  valid  arguments  in  the  designed  interface.  All 
II  other  arguments  will  be  invalid  and  return  <Invalid  Function>  to  the 
II  Standard  I/O. 
7 
/ 
//  End 

//  Interface  Dependencies 

// 

//  NONE 

II 

If  End  Interface  Dependencies 

#define  PRINT JCONFIG .LOCATION  20 
#def  ine  PRINT.VERSION  .LOCATION  50 
#def  ine  MAXXINEXENGTH  1024 
#def  ine  COMMAND.TABLEJSIZE  50 
#def  ine  SUCCESS  TRUE 
#def  ine  FAILED  FALSE 
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•define  LIST_PROTOTYPES  1 

#def  ine  LONG-LIST-PROTOTYPES  81230 

#def ine  GET.PROTOTYPE_LEADER  2 

#def  ine  GET.PROTOTYPE.DESCRIPTION  3 

#def ine  RETRIEVE_PROTOTYPE_DATE  5 

#def ine  INSERT-PROTOTYPE  6 

#def ine  UPDATE_PROTOTYPEXEADER  7 

#def  ine  UPDATE_PROTOTYPE_DESC  8 

#def  ine  UPDATE.PROTOTYPE-NAME  9 

#def  ine  GET_LATEST.CONFIGURATION  10 

#def  ine  DUMP-PROTOTYPE-SUMMARY  987 

#deline  LIST.CONFIGURATIONS  21 

#def  ine  DUMP_CONFIGURATION_OPERATORS  91372 

#def  ine  ADD_CONFIGURATION_OPERATORS  91378 

#def ine  LONG_LIST.CONFIGURATION_OPERATORS  92351 

#def  ine  LIST-CONFIGURATION  .DEFAULT-OPERATOR  6189 

#def  ine  LIST.CONFIGURATION.OPERATORS  91375 

#def  ine  UPDATE_CONFIGURATION_NAME  22 

#def  ine  GET-CONFIGURATION-DESCRIPTION  23 

#def  ine  INSERT.CONFIGURATION  24 

#def  ine  UPDATE.CONFIGURATION_DESCRIPTION  25 

#def  ine  GET-CONFIGURATION-MANAGER  26 

#def  ine  UPDATE_CONFIGURATION_MANAGER  27 

#def  ine  GET_CONFIGURATION_DATE  28 

#def  ine  GET_CONFIGURATION_CHANGED  29 

#def ine  POST.CONFIGURATION.LOG  30 

#def  ine  GET.CONFIGURATION.LOG  31 

#def  ine  ATTACH_OPERATOR  32 

#def  ine  DUMP-CONFIGURATION  J5UMMARY  33 

#def  ine  RELEASE.CONFIGURATION.LOCK  8124 

#def  ine  LIST-OPERATORS  41 

#def ine  GET_VOBJECT.DESCRIPTION  42 

#def  ine  GET.VOBJECT_DATE  43 

#def ine  GET.VOBJECT.VERSIONS  44 

#def  ine  GET.VOBJECT-LOCK  45 

#def  ine  GET.VOBJECT.VERSION  46 

#def  ine  DUMP.VOBJECT_SUMMARY  47 

#def  ine  GET.VOBJECT.POSTSCRIPT  48 

#def  ine  GET.VOBJECT_GRAPH  49 

#def  ine  GET_VOBJECT_IMPLEMENTATION  50 

#def  ine  GET.VOBJECT_SPECIFICATION  51 

#def ine  GET.VOBJECT  .SOURCE  52 

#def  ine  UPDATE_VOBJECT -DESCRIPTION  53 

#def  ine  ADD_VOBJECT_AND_SUBTREE  58 

•define  DUMP.VOBJECT_FILES  59 

#def  ine  DUMP.VOBJECT_TREE  60 

#deline  LONG-LIST-CHILDREN  61 

#def  ine  LONG-LIST-PARENTS  62 

#def  ine  LONG-LIST-OPERATORS  32981 
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#def ine  RELEASE_SUBTREE_LOCK  8281 
#def  ine  RELEASE.OPERATOR.LOCK  8992 

#def  ine  ERRORJN.EVALUATION  9999 

#def  ine  LENGTH_PS.EXT  3 
#def  ine  LENGTH.GRAPH.EXT  6 
#def  ine  LENGTH.IMP.EXT  9 
#def  ine  LENGTH_SPEC_EXT  10 
#def  ine  LENGTH_SOURCE_EXT  2 

tdeline  PS.EXT  ".ps" 
#define  GRAPH_EXT  ".graph" 
#define  IMP_EXT  ".imp.psdl" 
#define  SPEC.EXT  ".spec.psdl" 
#define  SOURCELEXT  ".a" 

#define  DESIGN_DATABASE_DIRECTORY  "ADesignDatabase" 

#def ine  PROTOTYPE.LIST  "PrototypeList" 

#def  ine  LONG_LIST_PROTOTYPE_UPC  "PLL" 

#define  LONG_LIST_PROTOTYPE_LC  "pll" 

#def  ine  LIST_ PROTOTYPE- UPC  "PLN" 

#def  ine  LIST.PROTOTYPE.LC  "pin" 

#def  ine  INSERT.PROTOTYPE.UPC  "PIP" 

#def  ine  INSERT.  PROTOTYPE. LC  "pip" 

#define  PROTOTYPE _EXT  ".prj" 

#endif  //  -DDBDEFINES-H 
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//  File  Header 

//•••• : 

// .Filename ;  directory. h 

//.SCCS  ID ;  1.3 

1/ .Release  No....:  1 

I /.Date :  9/16/91 

1/ .Author :  Garry  Lewis 

II :  Drew  Dwyer 

//.Compiler :  Glockenspiel  C++  2.1 

II : 

//  End  header  comments 


Jfifnde*  -DIRECTORY -H 
♦define  _DIRECTORY_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
/ /  object  file 

static  char  directory Ji.SccsIdQ  =  "fi(#)directory .h  1 .3\t9/16/9iM; 


//  Contents 

// 

//  DIRECTORY  HEADER 

II 

If  Description 

II 

II  Defines  class  DIRECTORY. 

II 

II  End 


//  Interface  Dependencies 

#ifndef  _TREENODE_H 
♦  include  "treenode.h" 
#endif 


//  End  Interface  Dependencies 

class  DIRECTORY 

{ 

private: 

TREENODEJinkedlist  operator  .nodes; 

public: 

DIRECTORY()  {}; 
void  read_directory(char  *root_oper); 
void  updatetimestamp(); 
TREENODE  *find_treenode(char  *); 
TREENODEJinkedlist  getOperatorList(); 

}; 
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//  Description 

// 

//  Defines  class  DIRECTORY.  Class  DIRECTORY  ts  a  non- 
11  persistent  class. 

II 

II  Constructor 

II 

II  DIRECTORY 

II 

If  Public  Members 

II 

II  read-directory 

II 

II  Read  a  list  of  file  from  a  directory  defined  by  the  environment 

II  variable  PROTOTYPE,  creates  a  corresponding  list  of  operator  nodes. 

II 

II  updatetimestamp 

II 

If  Updates  the  nodes  time  to  reflect  the  time  of  the  file 

II  most  recently  updated. 

II 

If  find.treenode 

II 

II  Find  a  given  node  in  the  list  of  operator  nodes. 

II 

II  getOperatorList 

II 

If  Returns  the  operator  node  list. 

II 

II  End  Description 

#endif  //  header  file 
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//  File  Header 

//•••• : 

// .Filename :  directory. cxx 

//.SCCS  ID :  1.3 

/ / .Release  No....:  1 

//.Date ;  9/16/91 

/ / .Author :  Garry  Lewis 

/ / :  Drew  Dwyer 

/ / .Compiler ;  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
1/  object  file 

static  char  directory_cxx_SccsId[]  =  "•(#)directory . exx  1 .3\t9/16/91"; 

//  Contents 

// 

//  DIRECTORY  r.readMrectory 
II  DI RECTORY ::updatetimestamp 
II  DIRECTORY r.find.treenode 
II  DIRECTORY r.getOperatorlist 

II 

II  Description 

II 

II  IMPLEMENTS  class  DIRECTORY  CONSTRUCTORS. 

II 

II  End 


//  Interface  Dependencies  — 
#include  <stream.hxx> 

extern  "C — " 

{ 

#include  <stddef  .h> 
#include  <stdlib.h> 
#include  <string.h> 
# include  <dirent.h> 
#include  <sys/stat.h> 
#include  <time.h> 
} 

#ifndef  _DIRECTORY_H 
#include  "directory  .h" 
#endil 


#ifndef  _DDBDEFINES_H 

Sinclude  "ddbdel ines  .h" 

#endii 

// End  Interface  Dependencies 
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extern  char  *dirNamePtr; 

void  DIRECTORY: :read_directory (char  *root_oper) 
{ 

// 

//  In  body  comment: 

II 

II  Here  I  will  create  the  list  to  hold  those  filenames  that 

II  contain  (as  a  substring)  the  operator  name.   This  method 

II  will  also  scan  those  files  that  do  match  the  pattern  input 

II  and  throw  out  those  with  the  .ps,  .graph,  .imp.psdl,  .spec.psdl 

II  and  .a  files.    What  I  hope  will  remain  is  a  list  of  only  those 

II  filenames  which  represent  that  operator  node  and  it's 

II  associated  SUBTREE  operator  nodes.    We'll  then  turn  around  and 

II  process  the  resulting  list  into  an  operator  tree  structure  and 

II  compare  against  the  database  schema  for  storage  of  the 

If  .ps,  graph,  .spec.psdl,  .imp.psdl,  and  .a  text  objects  into 

II  the  database  as  collected  sets  of  COMPONENT  objects. 

II 

If . 

DIR  *dirp; 

struct  dirent  *capsdirent; 

char  *path[MAX_LINE_LENGTH]; 

char  *pschk  =  NULL; 

char  *graphchk  =NULL; 

char  *specchk  =  NULL; 

char  *impchk  =  NULL; 

char  *sourcechk  =NULL; 

TREENODE  *operatornode  =NULL; 

char  *filename  =  NULL; 

strcpy  (path  ,dirN  amePtr) ; 

dirp  =  opendir(dirNamePtr); 

int  count=0; 

TREENODE  *temp; 

for  (capsdirent  =  readdir(dirp);  capsdirent  ^  NULL; 
capsdirent  =  readdir(dirp)) 


{ 


filename=capsdirent— ►d.name; 

pschk  =  capsdirent  — »^d_name  +  strlen(capsdirent  ->djiame)  -  3; 
graphchk  =  capsdirent  — >d_name  +  strlen(capsdirent  — ►d.name)  -  6; 
specchk  =  capsdirent  — ►d.name  4-  strlen(capsdirent  — ►djiame)  -  10; 
impchk  =  capsdirent  — *-d_name  +  strlen(capsdirent  — ►d.name)  -  9; 
sourcechk  =  capsdirent  — »-d_name  -f  strlen(capsdirent  -Kljiame)  -  2; 

if  (strcmp(pschk,".ps")==:0) 
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{ 

pschk[0]  =  *\0'; 

} 
else  if  (strcmp(graphchk,"  .  graph")==0) 

{ 

graphchk[0]  =  '\0'; 

} 
else  if  (strcmp(specchk,"  .spec.psdl")==0) 

{ 

specchk[0]  =  '\0'; 

} 
else  if  (strcmp(impchk,".imp.psdl")==0) 

{ 
impchk[0]  =  '\0'; 

} 
else  if  (strcmp(sourcechk,H  .  a")==0) 

{ 

sourcechk[0]  =  '\0'; 

} 

if  (strncmp(capsdirent  — +d_name,root_oper,strlen(root_oper))==:0) 
{ 

if  (!(temp=find_treenode(capsdirent— *d_name))) 

{ 

operatornode  =  new  TREENODE(capsdirent— ►d_name,NULL); 

operator_nodes.insert(operatornode); 
} 
} 
} 
closedir(dirp); 

} 

void  DIRECTORY: :updatetimestamp() 

{ 
DIR  *dirp; 
struct  dirent  *filep; 

struct  stat  timestats; 

char  *psfilename  =  NULL; 
char  *graphfilename  =  NULL; 
char  *specfilename  =  NULL; 
char  *impfilename  =  NULL; 
char  *sourcefilename  =  NULL; 
char  *path[MAX_LINE_LENGTH]; 
char  *node_name  =  NULL; 
TREENODE  *node; 
long  temptime  =  0; 
long  filetime  =  0; 
dirp  =  opendir(dirNamePtr); 
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slist iterator  Operator Ptr(operator  .nodes) ; 

while  (node  =  OperatorPtrQ) 
{ 

nodejiame  =  node— »-getname(); 

psfllename  =  new  char  [strlen(node_name)+3]; 
strcpy  (psfllename, node_name); 
strcat  (psfllename,"  .ps"); 

graphfilename  =  new  char  [strlen(nodejiame)+6]; 
strcpy  (graphfilename, nodejiame); 
strcat  (graphfilename,"  .graph"); 

impfilename  =  new  char  [strlen(node_name)+9]; 
strcpy  (impfilename, node_name); 
strcat  (impfilename,"  .  imp .  psdl"); 

specfilename  =  new  char  [strlen(node_name)+10]; 
strcpy  (specfilename, nodejiame); 
strcat  (specfilename,"  .spec. psdl"); 

sourcefilename  =  new  char  [strlen(node_name)+2]; 
strcpy  (sourcefilename, nodejiame); 
strcat  (sourcefilename,"  .a"); 

filep  =  readdir(dirp); 

while  ((filep  ^  NULL)  &&;  (!(strcmp(filep— ►djiame,psfilename)==0))) 

{ 

filep  =  readdir(dirp); 

;        ) 

if  ((filep  ^  NULL)  &&;  (strcmp(filep— ►djiame,psfilename)==0)) 

{ 

strcpy  (path,dirNamePtr); 
strcat  (path,"/"); 
strcat  (path.filep— »-djiame); 
stat(path,fctimestats); 
filetime  =  timestats.stj;time; 
temptime  =  node— +get_long_time(); 

node— ►updatetimestamp(temptime  <  filetime  ?  filetime  :  temptime); 
} 

rewinddir(dirp); 

filep  =  readdir(dirp); 

while  ((filep  ^  NULL)  Lk  (!(strcmp(filep— ►djiame,graphfilename)==0))) 

{ 

filep  =  readdir(dirp); 

} 
if  ((filep  ^  NULL)  &:&:  (strcmp(filep— »d  Jiame,graphfilename)==0)) 

{ 
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strcpy  (path,dirNamePtr); 
strcat  (path,"/"); 
strcat  (path,filep— Kd_name); 
stat(path,fctimestats); 
filetime  =  timestats.st.ctime; 
temptime  =  node— ►get_long_time(); 

node— ►updatetimestamp(temptime  <  filetime  ?  filetime  :  temptime); 
} 

rewinddir(dirp); 

filep  =  readdir(dirp); 

while  ((filep  ^  NULL)  &;&  (!(strcmp(filep— ►d_name,impfilename)==0))) 

{ 

filep  =  readdir(dirp); 

} 
if  ((filep  ^  NULL)  &&;  (strcmp(filep— ►d_name,impfilename)==0)) 

{ 

strcpy  (path,dirNamePtr); 

strcat  (path,"/"); 
strcat  (path,filep— »d_name); 
stat(path,&;timestats); 
filetime  =  timestats.st.ctime; 
temptime  =  node— ►get_long_time(); 

node— ►updatetimestamp(temptime  <  filetime  ?  filetime  :  temptime); 
} 

rewinddir(dirp); 

filep  =  readdir(dirp); 

while  ((filep  ^  NULL)  &&:  (!(strcmp(filep— ►d_name,specfilename)==0))) 

{ 

filep  =  readdir(dirp); 

} 
if  ((filep  ^  NULL)  &&;  (strcmp(filep— ►d_name,specfilename)==0)) 

{ 

strcpy  (path.dirNamePtr); 

strcat  (path,"/"); 

strcat  (path , filep— »djiame); 

stat(path,&timestats); 

filetime  =  timestats.st.ctime; 

temptime  =  node— ►getJong.timeO; 

node— ►updatetimestamp(temptime  <  filetime  ?  filetime  :  temptime); 
} 

rewinddir(dirp); 

filep  =  readdir(dirp); 

while  ((filep  ^  NULL)  &&;  (!(strcmp(filep— ►d_name,sourcefilename)==0))) 

{ 

filep  =  readdir(dirp); 

} 
if  ((filep  ^  NULL)  Szk,  (strcmp(filep— >d  jiame,sourcefilename)==0)) 

{ 
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strcpy  (path.dirNamePtr); 

strcat  (path,"/"); 

strcat  (path,filep— ►d-name); 

stat(path  ,&:timestats) ; 

filetime  =  timestats.st.ctime; 

temptime  =  node— ►getJong.timeQ; 

node— ►updatetimestamp(temptime  <  filetime  ?  filetime  :  temptime); 

} 

rewinddir(dirp); 

} 
closedir(dirp); 

} 


TREENODE  *DIRECTORY::find_treenode(char  *node_name) 

{ 
slistJterator  listJterator(operator_nodes); 
TREENODE  *tnode; 
while  (tnode=list_iterator()) 

if  (strcmp(tnode— ►getname(),node_name)==0) 
return  tnode; 
return  NULL; 
} 


TREENODEJinkedlist  DIRECTORY::getOperatorList() 

{ 

return  operator _nodes; 

} 
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//  File  Header 

//•••• : 

// .Filename :  evaluation. h 

I /.SCCS  ID :  1.3 

I / .Release  No....:  1 

//.Date :  9/16/91 

/ / .Author ;  Garry  Lewis 

/ / :  Drew  Dwyer 

//.Compiler ;  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


#ifndef  _EVALUATION_H 
#def  ine  -EVALUATION  _H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in  object  file 

static  char  evaluation_h_SccsId[]  =  "«(#)  evaluation.il  1 .3\t9/16/91"; 

//  Contents 

// 

//  Prototypes  of  functions  to  evaluate  the  command  line  TAG 

1/  argument  and  set  the  appropriate  case  statement  in  main. 

II 

II 

1/  End 


//  Interface  Dependencies 

// 

//  NONE 

II 

If  End  Interface  Dependencies 

char  charupper(char  c); 
char  *upper(char  *argument); 

int  evaluate_configuration_function(char  *function,  int  arguments); 
int  evaluate.vobject_function(char  *function,  int  arguments); 
int  evaluate_prototype _function(char  *function,  int  arguments); 

//  Description 

// 

//  charupper 

II 

II  Converts  lower  case  letters  to  upper  case. 

II 

II  upper 

II 

II  Converts  the  command  line  TAG  field  to  upper  case.   Calls 

II  charupper  to  convert  each  letter. 

II 

II  evaluate.confiquration.f unction 
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// 

//  Determines  the  appropriate  case  statement  to  be  executed  for 
Ij  database  operation  pertaining  to  configurations. 

II 

If  evaluate. v  object -junction 

II 

II  Determines  the  appropriate  case  statement  to  be  executed  for 

II  database  operations  pertaining  to  versioned  objects. 

II 

II  evaluate.prototype.function 

II 

II  Determines  the  appropriate  case  statement  to  be  executed  for 

II  database  operations  pertaining  to  prototypes. 

II 

II  End  Description 

#endif  //  -EVALUATIONS 


195 


//  File  Header 

//•••• : 

// .Filename :  evaluation. cxx 

I J.SCCS  ID :  1.3 

II .Release  No....:  1 

I /.Date ;  9/16/91 

/ / .Author ;  Garry  Lewis 

II ;  Drew  Dwyer 

1 1 .Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
II  object  file 

static  char  evaluation_cxx_SccsIdO  =  "•(#) evaluation. cxx  1.3\t9/16/91"; 

//  Contents 

// 

//  charupper 

II  upper 

If  evaluate.configuration.f unction 

II  evaluate-vobject-function 

If  evaluaie.prototype-function 

II 

II  Description 

II 

II  Defines  FUNCTIONS  FOR  SWITCH  STMT  IN  MAIN. 

II  r 

II  This  information  is  required  to  evaluate  the  command 

If  line  input  and  reconstruct  the  proper  commands  internal 

II  to  the  design  database  program. 

II 

II 

II  End 


//  Interface  Dependencies 


#ifndei  _DDBDEFINES_H 
#include  "ddbdef  ines.h" 
#endif 

# include  < stream. hxx> 
extern  "C — " 

{ 

# include  <stdlib.h> 

#include  <string.h> 

#include  <ctype.h> 

} 

#ifndei  -EVALUATION  _H 
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#include  "evaluation.h" 
#endif 

//  End  Interface  Dependencies 


char  charupper(char  c) 

{ 

return  islower(c)  ?  (c-'a'+'A')  :  c;  //  change  char  to  upper  case 

}; 


char  *upper(char  *argument) 

{  m 
int  i; 

for  (i=0;  i<strlen(argument);  i++)  //  convert  argument  to  upper  case 

argument[i]  =  charupper(argument[i]);  //  call  charupper  to  convert  each  one 
return  argument; 

}; 


int  evaluate.configuration  _function(char  *function,  int  arguments) 

{ 
if  (strcmp(function,"CLNM)==0) 

{  m 

if  (arguments<  1  ||  arguments  >1) 

{ 

cerr  <C  "<ERR0R:    Invalid  number  arguments  for  List   Conf igurations>\n"; 
return  ERROR JN_EVALUATION; 

} 
else 

return  LIST.CONFIGURATIONS;  //  tell  main()  to  run  LisLProioiypes 

} 
else  if  (strcmp(function,"CUN")==0) 

{  , 
if  (arguments<3  ||  arguments>3) 

{ 

cerr  <C  "<ERR0R:    Invalid  number  of  arguments   for  Update  Configuration  Name>\n"; 
return  ERRORJN.EVALUATION; 

} 
return  UPDATE.CONFIGURATION_NAME; 

} 
else  if  (strcmp(function,"CGD")==0) 

{  , 

if  (arguments<2  ||  arguments  >2) 

{ 

cerr  ■<  "<ERR0R:    Invalid  number  arguments  for  Get  Configuration  Description>\n" 
return  ERROR JN_EVALUATION; 

} 
return  GETXONFIGURATIONJDESCRIPTION; 

} 
else  if  (strcmp(function,"CIC")=— 0) 
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{ m 

if  (!arguments>0) 

{ 

cerr  •<  "<ERROR:    Hot   enough  arguments  for  Insert  Conf iguration>\n"; 
return  ERROR JN_EVALUATION; 

} 
return  INSERT.CONFIGURATION; 

} 
else  if  (strcmp(function,"CUD")==0) 

{  m 

if  (arguments<3  ||  arguments>3) 

{ 

cerr  <C  "<ERROR:  Invalid  number  arguments  for  Update  Configuration 
Description>\n"; 

return  ERRORJN_EVALUATION; 

} 
return  UPDATE.CONFIGURATION  JDESCRIPTION; 

} 
else  if  (strcmp(function,"CGM")==0) 

{   , 

if  (arguments<2  ||  arguments  >2) 

{ 

cerr  -C  "<ERR0R:    Invalid  number  arguments  for  Get   Configuration  Manager>\n"; 
return  ERROR JN_EVALUATION; 

} 
return  GET.CONFIGURATION_MANAGER; 

} 
else  if  (strcmp(function,"CDT")==0) 

{  m 

if  (arguments<3  ||  arguments>3) 

{ 

cerr  <C  "<ERRQR:    Invalid  number  arguments  for  Checkout  Conf iguration>\n"; 
return  ERROR  J  N  .EVALUATION; 

} 
return  DUMP.CONFIGURATION.OPERATORS; 

} 
else  if  (strcmp(function,"CRL")==0) 

{   m 
if  (arguments<2  ||  arguments>2) 

{ 

cerr  <C  "<ERR0R:  Invalid  number  arguments  for  Release  Configuration  Lock>\n"; 

return  ERROR JN -EVALUATION; 

} 
return  RELEASE.CONFIGURATIONJ.OCK; 

} 
else  if  (strcmp(function,"CAA")==0) 

{   _ 

if  (arguments<2  ||  arguments>2) 

{ 

cerr  <C  "<ERR0R:    Invalid  number  arguments  for  Checkin  Conf iguration>\n"; 
return  ERRORJN_EVALUATION; 
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} 

return  ADD.CONFIGURATION.OPERATORS; 

} 
else  if  (strcmp(function,"CLL")==0) 

{  m 

if  (arguments<2  ||  arguments>2) 

{ 

cerr  -C  "<ERR0R:    Invalid  number  arguments  for  List  Configuration  Operators >\n"; 
return  ERRORJN  EVALUATION; 

} 
return  LONG-LIST.CONFIGURATION.OPERATORS; 

} 
else  if  (strcmp(function,"CLVM)==0) 

{  g 
if  (arguments<2  ||  arguments>2) 

{ 

cerr  <C  "<ERR0R:  Invalid  number  arguments  for  List  Default  Configuration 
Operator>\n"; 

return  ERROR JN_E VALUATION; 

} 
return  LIST_CONFIGURATION_DEFAULT .OPERATOR; 

} 
else  if  (strcmp(function,"CLO")=:=0) 

{  m 

if  (arguments < 2  ||  arguments>2) 

{ 

cerr  <g.  "<ERR0R:    Invalid  number  arguments  for  List  Configuration  Operators >\n"; 
return  ERROR JN EVALUATION; 

} 
return  LIST_CONFIGURATION_OPERATORS; 

} 
else  if  (strcmp(function,,,CUM,,)==0) 

{  < 

if  (arguments<3  ||  arguments>3) 

{ 

cerr  <C  "<ERR0R:    Invalid  number  arguments  for  Update  Configuration  Manager>\n"; 
return  ERROR  JN  EVALUATION; 

} 
return  UPDATE.CONFIGURATION.MANAGER; 

} 
else  if  (strcmp(function,"CDA")==0) 

{   t 

if  (arguments<2  ||  arguments  >2) 

{ 

cerr  <C  "<ERR0R:    Invalid  number  of  arguments  for  Get  Configuration  Date>\n"; 
return  ERROR  JN  EVALUATION; 

} 
return  GET_CONFIGURATION  JDATE; 

} 
else  if  (strcmp(function,"CDS")==0) 

{ 
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if  (arguments<2  ||  arguments  >2) 

{ 

cerr  >C  "<ERROR:    Invalid  number  arguments    . . .Dump  Configuration  Summary>\n"; 
return  ERROR JN .EVALUATION; 

} 
return  DUMP.CONFIGURATIONJSUMMARY; 

} 
else  if  (strcmp(function,"CDC")==0) 

{   m 

if  (arguments < 2  ||  arguments  >2) 

{ 

cerr  •<  "<ERROR:  Invalid  number  arguments  ...Get  Last  Date  Changed>\n"; 

return  ERROR JN_EVALUATION; 

} 
return  GET_CONFIGURATION_CHANGED; 

} 
else  if  (strcmp(function,"CPLM)==0) 

{  m 

if  (arguments<3  ||  arguments>3) 

{ 

cerr  <C  "<ERR0R:  Invalid  number  arguments  for  Post  to  Configuration  Log>\n"; 

return  ERROR  JN  EVALUATION; 

} 
return  POST-CONFIGURATION  .LOG; 

} 
else  if  (strcmp(function,"CGL")==0) 

{  . 
if  (arguments<2  ||  arguments  >2) 

{ 

cerr  <C  "<ERR0R:    Invalid  number  arguments  for  Get   Configuration  Log>\n"; 
return  ERRORJN.EVALUATION; 

} 
return  GET.CONFIGURATION  J,OG; 

} 
else  if  (strcmp(function,"CAO")==0) 

{  m 

if  (arguments<3  ||  arguments  >4) 

{ 

cerr  <C  "<ERROR:    Not   enough  arguments  for  Attach  Operators>\n"; 
return  ERRORJN EVALUATION; 

} 
return  ATTACH. OPERATOR; 

} 
else 

{ 

cerr  •<  "Error  in  Configuration  Command  syntax  \n\n"; 

} 

}; 


int  evaluate.vobject  Junction  (char  *function,  int  arguments) 
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{ 

if  (strcmp(function,"VLOM)==0) 

{  m 

if  (arguments<2  ||  arguments  >3) 

{ 

cerr  <C  "<ERROR:  Invalid  number  arguments  lor  List  Operators>\n"; 

return  ERROR JN_EVALUATION; 

} 
return  LIST.OPERATORS;  //  tell  main()  to  run  List  Operators 

} 
else  if  (strcmp(function,MVUD")==0) 

{  _ 

if  (!arguments>0) 

{ 

cerr  -C  "<ERR0R:    Invalid  number  of  arguments  for  Update  VOBJECT  Description>\n"; 
return  ERROR JN_EVALUATION; 

} 
return  UPDATE.VOBJECT .DESCRIPTION; 

} 
else  if  (strcmp(function,"VGD")==0) 

{  m 

if  (!arguments>0) 

{ 

cerr  <  "<ERR0R:  Mot  enough  arguments  to  Get  VOBJECT  Description>\n"; 

return  ERROR JN.EVALUATION; 

} 
return  GET_VOBJECT_DESCRIPTION; 

} 

else  if  (strcmp(function,"VDD")==0) 

{   _ 

if  (!arguments>0) 

{ 

cerr  <  "<ERR0R:    Invalid  number  of  arguments  for  Get  VOBJECT  Date>\n"; 
return  ERROR JN .EVALUATION; 

} 
return  GET.VOBJECT  J) ATE; 

} 

else  if  (strcmp(function,HVGV")==0) 

{  m 

if  (arguments<2  ||  arguments  >2) 

{ 

cerr  <  "<ERR0R:  Invalid  number  arguments  for  Get  VOBJECT  Versions>\n"; 

return  ERROR  JN  .EVALUATION; 

} 
return  GET.VOBJECT  .VERSIONS; 

} 
else  if  (strcmp(function,"VVV")==0) 

{  f 
if  (arguments<l  ||  arguments  >1) 
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{ 

cerr  <C  "<ERROR:    Invalid  number  of  arguments  lor  Get  VOBJECT  Current  Version>\n"; 
return  ERRORJN_EVALUATION; 

} 
return  GET.VOBJECT  .VERSION; 

} 

else  if  (strcmp(function,"VGL")==0) 

{  . 

if  (arguments  <2  ||  arguments  >3) 

{ 

cerr  <  "<ERR0R:    Invalid  number  of  arguments  for  Get  VOBJECT  Lock>\n"; 
return  ERROR JN_EVALUATION; 

} 
return  GET.VOBJECTXOCK; 

} 

else  if  (strcmp(function,"VDA'*)==0) 

{   m 

if  (arguments<2  |[  arguments  >3) 

{ 

cerr  <  "<ERROR:    Invalid  number  of  arguments  for  Get  VOBJECT  Summary>\n"; 
return  ERRORJN.EVALUATION; 

} 
return  DUMP.VOBJECT  .SUMMARY; 

} 

else  if  (strcmp(function,"VGP")==0) 

{   _ 

if  (arguments  <3  ||  arguments  >4) 

{ 

cerr  <  "<ERROR:    Invalid  number  of  arguments  for  Get  VOBJECT  Postscript>\n"; 
return  ERROR JN -EVALUATION; 

} 
return  GET.VOB  J  ECT  .POSTSCRIPT; 

} 
else  if  (strcmp(function,"VGGM)==0) 

{  m 

if  (arguments  <3  ||  arguments  >4) 

{ 

cerr  <  "<ERR0R:    Invalid  number  of  arguments  for  Get  VOBJECT  GRAPH>\n"; 
return  ERROR  JN  -EVALUATION; 

} 
return  GET.VOBJECT .GRAPH; 

} 

else  if  (strcmp(function,MVGIM)==0) 

{ 

if  (arguments  <3  ||  arguments  >4) 

{ 

cerr  <  "<ERR0R:  Invalid  number  of  arguments  for  Get  VOBJECT  Implementation>\n"; 
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return  ERRORJN_EVALUATION; 

} 
return  GETJVOBJECTJMPLEMENTATION; 

} 

else  if  (strcmp(function,',VGC")==0) 

{   t 
if  (arguments  <3  ||  arguments  >4) 

{ 

cerr  -C  "<ERROR:    Invalid  number  of  arguments  lor  Get  VOBJECT  Specif  ication>\n"; 
return  ERRORJN_EVALUATION; 

} 
return  GET.VOBJECTJ3PECIFICATION; 

} 
else  if  (strcmp(function,"VGS")==0) 

{   m 

if  (arguments  <3  ||  arguments  >4) 

{ 

cerr  <  "<ERROR:    Invalid  number  of  arguments  for  Get  VOBJECT  Source>\n"; 
return  ERROR JN_EVALUATION; 

} 
return  GET.VOBJECTJSOURCE; 

} 
else  if  (strcmp(function,MVDSM)==0) 

{  < 

if  (arguments  <2  ||  arguments  >3) 

{ 

cerr  <C  "<ERR0R:    Invalid  number  of  arguments  for  Dump  VOBJECT  Source>\n"; 
return  ERRORJN_EVALUATION; 

} 
return  DUMP.VOBJECT  .SUMMARY; 

} 
else  if  (strcmp(function,"VAAM)==0) 

{  _ 

if  (arguments<2  ||  arguments  >3) 

{ 

cerr  «C  "<ERR0R:  Invalid  number  of  arguments  for  Add  VOBJECT  Subtree>\n"; 

return  ERRORJN.EVALUATION; 

} 
return  ADD.VOBJECTJ^NDJSUBTREE; 

} 
else  if  (strcmp(function,"VDFM)==0) 

{  . 

if  (arguments  <3  ||  arguments  >4) 

{ 

cerr  <  "<ERROR:  Invalid  number  of  arguments  for  Dump  VOBJECT  FILE(S)>\n"; 

return  ERRORJN_EVALUATION; 

} 
return  DUMP.VOBJECTJILES; 

} 
else  if  (strcmp(function,MVLL")==0) 
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{ m 

if  ( !  argu  ments  >  1 ) 

{ 

cerr  <C  "< ERROR:    Invalid  number  of  arguments  for  long  list  Operators>\n"; 
return  ERRORJN_EVALUATION; 

} 
return  LONG-LIST_OPERATORS; 

} 
else  if  (strcmp(function,"VLO")==0) 

{  m 

if  (!arguments>l) 

{ 

cerr  <C  "<ERROR:    Invalid  number  of  arguments  for  list  Operators>\n"; 
return  ERROR JN_EVALUATION; 

} 
return  LIST_OPERATORS; 

} 
else  if  (strcmp(function,MVLPH)==0) 

{   . 

if  (!arguments>l) 

{ 

cerr  <C  "<ERR0R:    Invalid  number  of  arguments  for  list  Parent/Siblings>\n"; 
return  ERRORJN_EVALUATION; 

} 
return  LONG _LIST_PA RENTS; 

} 
else  if  (strcmp(function,"VLC")==0) 

{  m 

if  (!arguments>l) 

{ 

cerr  <C  "<ERROR:  Invalid  number  of  arguments  for  list  Children>\n"; 

return  ERROR JN_EVALUATION; 

} 
return  LONGJLIST.CHILDREN; 

} 
else  if  (strcmp(function,HVDT")==0) 

{   m 

if  (!arguments>l) 

{ 

cerr  <  "<ERR0R:  Invalid  number  of  arguments  for  Dump  VOBJECT  TREE  FILE(S)>\n"; 

return  ERROR  JN.EVALUATION; 

} 
return  DUMP.VOBJECT.TREE; 

} 
else  if  (strcmp(function,"VRO")==0) 

{  . 

if  (arguments  <2  ||  arguments  >3) 

{ 

cerr  «C  "<ERROR:  Invalid  number  of  arguments  for  Release  Operator  Lock>\n"; 

return  ERROR JN_EVALUATION; 
} 
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return  RELEASE_OPERATOR_LOCK; 

} 
else  if  (strcmp(function,"VRS")==0) 

{  % 

if  (arguments  <2  ||  arguments  >3) 

{ 

cerr  <C  "<ERROR:  Invalid  number  of  arguments  lor  Release  Operator  Subtree 
Locks>\n"; 

return  ERROR JN_EVALUATION; 

} 
return  RELEASE_SUBTREE_LOCK; 

} 

else 

{ 

cerr  <  "<<<Error  in  VOBJECT  Command  syntax>>>   \n\n"; 

} 

}; 


int  evaluate_prototype_function(char  *function,  int  arguments) 

{ 
if  (strcmp(function,"PLN")==0) 

{  f 

if  (!arguments==0) 

{ 

cerr  «C  "<ERR0R:    Too  many  arguments  for  List  Prototype  Names>\n"; 
return  ERRORJN_EVALUATION; 

} 
else 

return  LIST_PROTOTYPES;  //  tell  main()  to  run  List-Prototypes 

} 
else  if  (strcmp(function,"PLL")==0) 

{  . 

if  (!arguments==0) 

{ 

cerr  -C  "<ERR0R:    Invalid  number  of  arguments  for  Long  List  Prototypes>\n"; 
return  ERRORJN_EVALUATION; 

} 
return  LONGXIST.PROTOTYPES; 

} 
else  if  (strcmp(function,"PDS")==0) 

{   ^ 

if  (arguments<l  ||  arguments  >1) 

{ 

cerr  <C  "<ERROR:  Invalid  number  of  arguments  for  Dump  Prototype  Summary>\n"; 

return  ERRORJN_EVALUATION; 

} 
return  DUMP_PROTOTYPE_SUMMARY; 

} 
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else  if  (strcmp(function,"PGL")==0) 

{   m 

if  (arguments<l  ||  arguments  >1) 

{ 

cerr  <C  "<ERROR:    Invalid  number  of  arguments  for  Get  Prototype  Leader>\n"; 
return  ERRORJN_EVALUATION; 

} 
return  GET_PROTOTYPE_LEADER; 

} 
else  if  (strcmp(function,"PGD")==0) 

{   § 

if  (arguments<l  ||  arguments  >1) 

{ 

cerr  <C  "<ERROR:    Invalid  number  arguments  for  Get  Prototype  Description>\n"; 
return  ERROR  JN.EVALUATION; 

} 
return  GET_PROTOTYPE_DESCRIPTION; 

} 
else  if  (strcmp(function,"PRD")==0) 

{   m 

if  (arguments<l  ||  arguments  >1) 

{ 

cerr  <C  "<ERROR:  Invalid  number  arguments  for  Retrieve  Prototype  Date>\n"; 

return  ERROR  J  DEVALUATION; 

} 
return  RETRIEVE_PROTOTYPE_DATE; 

} 
else  if  (strcmp(function,"PIP")==0) 

{  m 

if  (!arguments>0) 

{ 

cerr  <C  "<ERROR:    Invalid  number  arguments  for  Insert  Prototype>\n"; 
return  ERRORJN_EVALUATION; 

} 
return  INSERT_PR0TOTYPE; 

} 
else  if  (strcmp(function,"PUL")==0) 

{  . 

if  (arguments<2  ||  arguments  >2) 

{ 

cerr  <C  "<ERROR:    Invalid  number  arguments  for  Update  Leader>\n"; 
return  ERRORJN_EVALUATION; 

} 
return  UPDATE_PROTOTYPE_LEADER; 

} 
else  if  (strcmp(function,"PUD")==0) 

{   m 

if  (!  arguments==l) 

{ 

cerr  ■<  "<ERROR:    Invalid  number  arguments  for  Update  Description>\n"; 
return  ERRORJN.EVALUATION; 


206 


} 

return  UPDATE_PROTOTYPE_DESC; 

} 
else  if  (strcmp(function,"PUM")==0) 

{  m 

if  (!  arguments==l) 

{ 

cerr  <C  "<ERROR:    Invalid  number  arguments  for  Update  Name>\n"; 
return  ERRORJN_EVALUATION; 

} 
return  UPDATE_PROTOTYPEJMAME; 

} 

else  if  (strcmp(function,MPGCM)==:0) 

{  _ 

if  (arguments<l  ||  arguments>l) 

{ 

cerr  <C  "<ERR0R:    Invalid  number  arguments  for  Get_Latest_Conf iguration>\n"; 
return  ERRORJN_EVALUATION; 

} 
return  GET_LATEST_CON FIGURATION; 

} 
else 

{ 

cerr  <C  "Error  in  Prototype  Command  syntax  \n\n"; 

} 


}; 
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//  File  Header 

// •• 

// .Filename :  nodesupport.h 

//.SCCS  ID :  1.3 

1/ .Release  No....:  1 

I/. Date :  9/16/91 

/ 1  .Author :  Garry  Lewis 

II :  Drew  Dwyer 

I  /.Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


#ifndei  _NODESUPPORT_H 
#def  ine  _NODESUPPORT_H 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
II  object  file 

static  char  nodesupport_h_SccsId[]  =  "C(#)nodesupport  .h  1.3\t9/16/91"; 

//  Contents 

// 

//  NODESUPPPORT  HEADER  FILE 

II 

If  Description 

II 

II  SIMPLE  NODE  SUPPORT  Functions 

II 

II  End 

//  Interface  Dependencies ___ 

#ifndef  _TREENODE_H 
#include  "treenode.h" 
#endif 

//  End  Interface  Dependencies  — 

TREENODE*  root_find(TREENODEJinkedlist  list_to_search,  const  char*  str); 
int  str_suffix_check(char*  str, char  ch); 
int  proper  .super  ,string(char*  strl,  char*  str2); 
int  proper_super-NODE-check(TREENODE*  node_ptr,  char*  target  string); 

//  Description 

// 

//  root-find 

II 

If  Locates  the  root  node  associated  with  given  operator  name. 

II 

/I  str.suffix.check 
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// 

//  Locates  the  suffix  of  a  given  siring. 

II 

II  proper.super.string 

II 

If  Determines  whether  one  string  is  a  prefix  of  another  string 

II  (i.e.,  one  operator  is  the  child  of  another  operator). 

II 

If  proper  super  .NODE  .check 

II 

II  Determines  whether  a  given  node  should  be  added  to  the  childlist 

II  of  a  given  operator  name. 

II 

If  End  Description 

#endil  //  end  nodesupport  header  file 
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//  File  Header 

//•••• •• 

// .  Filename :  nodesuppori.  cxx 

/ /.SCCS  ID ;  1.3 

I J .Release  No....:  1 

//.Date :  9/16/91 

/ / .Author :  Garry  Lewis 

/ / :  Drew  Dwyer 

//.Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
/ /  object  file 

static  char  nodesupport_cxx_SccsId[|  =  "•(#)  node  support  .cxx  1.3\t9/16/91"; 


//  Contents 

// 

//  root.find 

j j  str.suffix.check 

1/  proper. super. string 

If  proper.super.NODE.check 

II 

II  End 


//  Interface  Dependencies 

extern  "C — " 

{ 

#include  <string.h> 

} 

#iindef  _NODESUPPORT_H 
#include  "nodesupport.h" 
#endif 

//  End  Interface  Dependencies 


TREENODE*  root _find(TREENODEJinkedlist  list.tojsearch,  const  char*  str) 

//  Summary 

// 

//  this  function  returns  the  address  of  the  NODE  in  the  list 

II  that  has  its  operatorjname  matching  *str. 

II 

If  End  Summary 


slistiterator  ret_node(list_to_search); 
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TREENODE*  node; 
while  (ret_node()) 

{ 

node  =  ret_node(); 

if  (  !strcmp(str,node— >getname()  )  )  return  node; 

} 
return  NULL; 

} 


int  str_suffix_check(char*  str,char  ch) 

//  Summary 

// 

//  this  function  checks  to  see  if  the  char  at  address  sir  is  ch 
II  and  that  ch  only  appears  in  the  string  *str  at  this  position. 
If  Thus  *str  with  ch  =   '.'  is  of  the  form  ".example  with  no  more 
II  periods"  . 

II 

If  End  Summary 

{    . 

if  (*str  ^  ch  )  return  0; 

else  //  check  for  "ch"  in  rest  of  string 

{   , 

if  (strchr(str+l,  ch  )  )  return  0; 
else  return  1; 
} 
} 


int  proper  .super  _string(char*  strl,  char*  str2) 

//  Summary 

// 

//  This  function  checks  to  see  if  sir  J  is  a  candidate  to  be  a 
II  child  of  str2  in  the  multi-way  tree. 

II 

If  End  Summary 

{ 

//  check  to  see  if  str2  is  a  prefix  of  strl 
if  (strl  7*  strstr(strl,str2)  ) 

return  0; 
else 

{ 

char*  loc  =  strl  +  strlen(str2); 

return  str_suffix_check(loc  ,  '.'); 
} 
} 
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int  proper jsuper  JVODExheck(TREENODE*  node_ptr,  char*  target  .string) 

//  Summary 

// 

//  This  functions  checks  to  see  if  the  NODE  returned  by 

II  Listlterator  should  be  added  to  the  childJist  of  the  NODE 

II  associated  with  target  string.  It  return  a  1  if  it  should. 

II 

II  End  Summary 

{ 

return  proper-super  _string(node_ptr— ►getnameQ,  target  .string)  ; 

} 
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//  File  Header — 

// •• 

// .Filename :  prolfunc.h 

//.SCCS  ID :  1.8 

1/ .Release  No....:  1 

1 1. Date :  9/16/91 

1 1 .Author :  Garry  Lewis 

II ;  Drew  Dwyer 

//.Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


#ifndef  _PROTFUNC_H 
#def  ine  _PROTFUNC_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
1/  object  file 

static  char  protfunc_h_SccsIdQ  =  "O(#)protiunc.h  1 .3\t9/16/91"; 

//  Contents 

// 

//  Prototypes  for  functions  related  to  manipulating 

II  instances  of  the  class  PROTOTYPE. 

II 

II  End 

void  list_prot_func(int); 
void  longJist_prot_func(int); 
void  get_prot  Jeader_func(int,  char*); 
void  get_prot_description_func(int,  char*); 
void  dump_protjsummary_func(int,  char  *); 
void  retrieve _prot_date_func(int,  char*); 
void  insert _prot_func(int,  char*,  char*,  char*); 
voidupdate_protJeader _func(int,  char*,  char*); 
void  update_prot_desc_func(int,  char*,  char*); 
void  update_prot_nameJunc(int,  char*,  char*); 

//  Description 

// 

//  lisi.prot.func 

II 

II  Provide  the  name  of  prototypes  in  the  design  database. 

II 

II  longJist.proi.func 

II 

If  Provides  a  list  of  all  prototypes,  the  default  configuration 
II  assigned  to  a  prototype  and  the  version  number  of  the  root 
II  versioned  object. 

II 

If  get.prot.leader.func 
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// 

//  Provides  the  name  of  the  leader  assigned  to  a  prototype. 

II 

II  gei.prot.description.func 

II 

II  Provides  the  description  of  a  given  prototype. 

II 

If  dump.proijsummary.func 

II 

II  Provides  a  summary  of  the  prototype.  Include  creation  date, 

If  leader,  default  configuration,  and  a  description. 

II 

II  retrieve.prot-date.func 

II 

II  Provides  the  creation  date. 

II 

II  inserl.proi.func 

II 

II  Creates  a  new  prototype  in  the  database. 

II 

II  update. prot. leader. func 

II 

II  Changes  the  prototype  leader's  name. 

II 

If  update.prot.desc.func 

II 

II  Changes  the  description  of  a  prototype. 

II 

If  updaie.prot.name.func 

II 

II  Changes  the  prototype  name. 

II 

II  End  Description 

#endif  //  -PROTFUNC.H 
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//  File  Header 

// •• 

// .Filename :  protfunc.cxx 

//.SCCS  ID :  1.3 

/ / .Release  No....:  1 

//.Date :  9/16/91 

// .Author :  Garry  Lewis 

1/ :  Drew  Dwyer 

/ / .Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
1/  object  file 

static  char  protfunc_cxx_SccsId[|  =  "•(#) protfunc.cxx  1 .3\t9/16/91"; 


//  Contents 

// 

//  Ust.proLfunc 

II  longJist.proLfunc 

If  get-protJeader.func 

II  get-prot-description.func 

II  dump -prot.summary June 

/I  retrieve.prot-daie-func 

If  insert.prot.func 

If  update.prot.leader.func 

If  update  jprot.desc.func 

If  update.prot.namejunc 

II 

II  End 


//  Implementation  Dependencies 

#ifndef  _DDBDEFINES_H 
#include  "ddbdef ines.h" 
# end if 

#include  <stream.hxx> 
^include  <List.h> 
#include  <Directory .h> 

extern  "C — " 

{ 

#include  <sys/time.h> 

tinclude  <sys/types.h> 

} 

#if  ndef  -PROTOTYPE  Ji 
#include  "prototype. h" 
#endif 
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//  End  Implementation  Dependencies- 


II  Interface  Dependencies 


#ifndef  _PROTFUNC_H 
#include  "protfunc.h" 
# end if 

//  End  Interface  Dependencies 

extern  List  *myPrototypeList; 
extern  char  *ddbRootDir; 
PROTOTYPE  *prototypePtr; 
ifstream  inFile; 

void  list.prot  _func(int  number-arguments) 

{ 

switch  (number_arguments) 

{ 
case  0: 

{ 

OC-setWorkingDirectory(ddbRootDir); 
Listlterator  myjterate(myPrototypeList); 
while(my_iterate.moreData()) 

{ 

cout  <C  (char  *)myiterate()  <C  "\n"; 

} 
} 

break; 
default : 

cerr  <C  "<ERR0R:    problem  listing  prototypes   in  database>\n"; 
} 
} 

void  longJist_prot_func(int  number-arguments) 

{ 

char  *proto_name  =  (char  *)0; 
char  *configname  =  (char  *)0; 
switch  (number-arguments) 

{ 
case  0: 

{ 

OCsetWorkingDirectory(ddbRootDir); 
List  fcprotoReference  =  *myPrototypeList; 
List  *proto_names  =  (List*)0; 
proto_names  =  new  List(protoReference); 
Listlterator  my_iterate(proto_names); 
while(myJterate.moreData()) 
{ 
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Directory  *prototype_dir=(Directory*)0; 

char  *proto_name  =  (char  *)0; 

char  *name  =  (char  *)0; 

proto_name  =  (char  *)my.iterate(); 

name  =  new  char  [strlen(proto_name)+5]; 

strcpy  (name  ,proto_name) ; 

strcat(name,"jdirM); 

prototype.dir  =  (Directory  *)OCJookup(name); 

if  (prototype.dir) 

OC-setWorkingDirectory  (prototype  jdir); 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy  (prototype  _name,proto_name); 
strcat(prototype_name,PROTOTYPE_EXT); 
prototypePtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypePtr) 

{ 
CONFIGURATION  *configPtr; 

configPtr  =  prototypePtr— +getDefaultConfiguration(); 

if  (configPtr) 

{ 

configname  =new  char  [strlen(configPtr— ►nameQ+l)]; 
strcpy  (configname, configPtr— >name()); 

} 
else 

{ 

configname  =new  char  [5]; 
strcpy  (configname,  "NONE"); 

} 
cerr  <  "Name:      "; 

cout  <C  proto_name; 

int  i=0; 

for  (i=0;i<(PRINT.CONFIG.LOCATION-strlen(proto_name));i-|-+) 

cout  <  "   "; 
cerr  <  "Default  Conf ig:      "; 
cout  <C  configname; 
for  (i=0;i<(PRINT_VERSION_LOCATION- 

(PRINT_CONFIG_LOCATION+strlen(configname)));i++) 

cout  <  "   "; 
cerr  <C  "Version:      "; 

V.OBJECT  *vobjectPtr  =  prototypePtr->getVobject(); 
if  (vobjectPtr) 

{  _ 

int  version  =  vobjectPtr— ►getVersionNumber(); 

cout  <C  version  <C  "\n";; 

} 
else 

cout  <  "NONE  \n"; 
delete  name; 
delete  configname; 
} 
} 
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} 

break; 
default: 

cerr  <C  "<ERROR:    problem  long  listing  prototypes   in  database>\n"; 
} 
} 

void  get_prot  Jeader_func(int  number-arguments,  char  *argl) 

{ 
switch  (number^arguments) 

{ 
case  1: 

char  *prototype_name  =  new  char  [strlen(argl)+5]; 

strcpy(prototype_name,argl); 

strcat(prototype_name,PROTOTYPE_EXT); 

prototypePtr  =  (PROTOTYPE*)OCJookup(prototype_name); 

prototypePtr  — ►  getPrototypeLeaderQ; 

break; 
default: 

cerr  <C  "<ERROR:    extra  arguments   in  get  description  call\n"; 
} 
} 


void  get_prot_description_func(int  number_arguments,  char  *argl) 
{ 

switch  (number^arguments) 

{ 
case  1: 

char  *prototype_name  =  new  char  [strlen(argl)+5]; 
strcpy(prototype_name,argl); 
strcat(prototype.name,PROTOTYPE_EXT); 
prototypePtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
prototypePtr  — ►  getPrototypeDescription(); 
break; 
default: 

cerr  <C  "<ERROR:    extra  arguments   in  get  description  call\n"; 
} 
} 

void  dump_protjsummary_func(int  number_arguments,  char  *argl) 
{ 

switch  (number_arguments) 

{ 
case  1: 

char  *prototype_name  =  new  char  [strlen(argl)+5]; 

strcpy(prototype_name,argl); 

strcat(prototypejiame,PROTOTYPE_EXT); 

prototypePtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
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prototypePtr  — ►  dumpPrototypeSummary(); 
break; 
default: 

cerr  •<  "<ERROR:    extra  arguments   in  dump  Prototype  Summary  call\n"; 

} 

} 


void  retrieve_protjdate _func(int  number_arguments,  char  *argl) 

{ 
switch  (number-arguments) 

{ 
case  1: 

char  *  prototypes  ame  =  new  char  [strlen(argl)+5]; 

strcpy(prototype_name,argl); 

strcat(prototype_name,PROTOTYPE_EXT); 

prototypePtr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (prototypePtr) 

{ 

timet  protTime  =  prototypePtr  — ►  getProtCreationDate(); 
cout  <C  ctime(&;protTime)  <C  "\n"; 

} 
else 

{ 

cerr  <  "<Prototype   "  <  argl  <  "  not  found>\n" 

<C  "<find  prototype   creation  date  operation  aborted>"; 

} 
break; 

default: 

cerr  <C  "<ERR0R:    invalid  number  args  for  prototype  time  retrieval>\n"; 
} 
} 


void  insert _prot_func(int  number-arguments,  char  *argl,  char  *arg2,  char  *arg3) 

{ 
char  *prototype_name  =  new  char  [strlen(argl)+5]; 
strcpy  (prototype  .name,  argl); 
strcat(prototypejiame,PROTOTYPE_EXT); 

prototypePtr  =  (PROTOTYPE  *)OCJookup(prototype_name); 
if  (IprototypePtr) 

{ 

switch  (number_arguments) 

{ 
case  1: 

prototypePtr  =  new  PROTOTYPE(prototype_name); 

OC-setWorkingDirectory(ddbRootDir); 

myPrototypeList  — ►  Insert(argl); 

myPrototypeList  — ►  putObject(); 

break; 
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case  2: 
case  3: 

prototypePtr  =  new  PROTOTYPE(prototype_name,  arg2); 

inFile.open(arg3,  ios::in); 

if  (inFile) 

prototypePtr  — ►  updatePrototypeDescription(arg3, inFile); 

OC-setWorkingDirectory(ddbRootDir); 

myPrototypeList  — ♦  Insert(argl); 

myPrototypeList  — *  putObject(); 

inFile. close(); 

break; 
default: 

cerr  <C  "<ERR0R:  invalid  number  args  lor  insert  prototype>\n"; 

} 
} 
else 

{ 

cerr  <  "<H0TE:    "  <  argl  <  "   already  exists  !>\n"; 
return; 
} 
} 


void  update_protJeader_func(int  number  ^arguments,  char  *argl,  char  *arg2) 

{ 
switch  (number_arguments) 

{ 
case  2: 

char  *prototype_name  =  new  char  [strlen(argl)+5]; 
strcpy(prototype_name,argl); 
strcat(prototypejiame,PROTOTYPE_EXT); 
prototypePtr  =  (PROTOTYPE*)OCJookup(prototype_name); 
prototypePtr  — ►  changePrototypeLeader(arg2); 
break; 
default: 

cerr  <C  "<ERR0R:    invalid  number  args  for  update  Leader>\n"; 
} 
} 


void  update-prot_desciunc(int  number  .arguments,  char  *argl,  char  *arg2) 

{ 
switch  (number^irguments) 

{ 
case  2: 

{ 
inFile.open(arg2,ios::in); 
if  (linFile) 

{ 

cerr  <C  "File  with  description  contents  does  not  exist\n" 
<C  "Aborting  prototype  updata_description\n"; 
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} 

else 

{ 

char  *prototype_name  =  new  char  [strlen(argl)+5]; 

strcpy  (prototype  .name  ,arg  1 ) ; 

strcat(prototype_name,PROTOTYPE_EXT); 

prototypePtr  =  (PROTOTYPE*)OC  Jookup(prototype_name); 

prototypePtr  — ►  updatePrototypeDescription(arg2,inFile); 

inFile.close(); 

} 
break; 

} 
default: 

cerr  <C  "<ERROR:    invalid  number  args  for  update  description>\n"; 

} 


void  update_prot_name_func(int  number_arguments,  char  *argl,  char  *arg2) 

{ 
switch  (number^arguments) 

{ 
case  2: 

char  *prototype_name  =  new  char  [strlen(argl)+5]; 

strcpy(prototype_name,argl); 

strcat(prototype_name,PROTOTYPE_EXT); 

char  *new_prototype_name  =  new  char  [strlen(arg2)-f5]; 

strcpy(new_prototype_name,arg2); 

strcat(new_prototype_name,PROTOTYPE_EXT); 

prototypePtr  =  (PROTOTYPE*)OC  Jookup(prototype_name); 

prototypePtr  — ►  changePrototypeName(new_prototype_name); 

break; 
default: 

cerr  -C  "<ERR0R:    invalid  number  args  for  update  Name>\n"; 
} 


} 
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//  File  Header 

//•••• : 

/ 1 .Filename :  prototype. h 

//.SCCS  ID :  1.3 

1/ .Release  No....:  1 

//.Date :  9/16/91 

f / .Author :  Garry  Lewis 

/ 1 :  Drew  Dwyer 

//.Compiler ;  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


#ifndef  _PROTOTYPE_H 
#def  ine  _PROTOTYPE_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
1/  object  file 

static  char  prototype_h_SccsId[|  =  M«(#)prototype.h  1 .3\t9/16/91"; 


//  Contents 

// 

//  PROTOTYPE 

II 

1/  Description 

II 

II  Defines  class  PROTOTYPE. 

II 

II  End 


//  Interface  Dependencies 


#include  <Object.h> 
#include  <Dictionary .h> 
#include  <Ref erence.h> 
#include  "Ref  erenceMacros.h" 

extern  "C — " 

{ 

#include  <sys/time.h> 

#include  <sys/types.h> 

} 

#ifndef  _TEXT_OBJECT_H 
# include  "text_object.h" 
tfendil 

#ifndel  _CONFIGURATION_H 
# include  "conf  iguration.h" 
#endif 
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TypeCheckReference(ConfDictReference,  Reference,  Dictionary); 
TypeCheckReference(TextObjectReference,  Reference,  TEXT  .OBJECT); 
TypeCheckReference(DefaultConfReference,  Reference,  CONFIGURATION); 


//  End  Interface  Dependencies 

#def  ine  DEFAULT _NAME  "" 
//  Class  // 

class  PROTOTYPE  :  public  Object 

{ 
private: 

char  *protleader; 

int  protDictlndex; 

time_t  protCreationDate; 

TextObjectReference  protdescription; 

ConfDictReference  prot.configurationJist;  //points  to  a  Dictionary 

DefaultConfReference  prot.default  .configuration; 

public: 

PROTOTYPE(APL  *); 
PROTOTYPE(char  *prototype_name, 

char  *prototype_leader=DEFAULT_NAME); 
virtual  void  Destroy  (Boolean  aborted=FALSE); 
virtual  Type  *getDirectType(); 
char  *getName(); 
char  *getConfigName(); 
void  getPrototypeName(); 
void  getPrototypeLeader(); 
void  getPrototypeDescription(); 

void  changePrototypeName(char  *new_prototype_name); 
void  changePrototypeLeader(char  *new_prototypeJeader); 
void  updatePrototypeDescription(char*,  ifstreamfc); 
void  dumpPrototypeSummary(); 

void  addConfiguration(CONFIGURATION  *configuration); 
void  listConfigurations(); 
time.t  setProtCreationDate(); 
time.t  getProtCreationDate(); 
void  getDefaultConfigName(); 
CONFIGURATION  *getConfiguration(char  *); 
CONFIGURATION  *getDefaultConfiguration(); 
V.OBJECT  *getVobject(); 
~PROTOTYPE()  {  Destroy  (FALSE);  } 

}; 


//  Description 

// 

//  Defines  a  PROTOTYPE  class. 
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// 

//  Constructor 

II 

II  prototype  -A PL 

II 

II  ONTOS  required  constructor 

II 

II  prototype 

II 

II  Constructs  a  prototype  object  from  the  given  name, 

II  and  optional  team  leader  of  the  prototype. 

II 

II  Public  Members 

II 

II  Destroy 

II 

II  used  to  cleanup  memory  during  deletion  and  aborts. 

II 

II  getDirectType 

II 

II  Return  the  ONTOS  Type  of  class  PROTOTYPE. 

II 

I/  geiName 

II 

II  Returns  a  character  string  containing  the  name  of  the  prototype 

II 

II  getConfigName 

II 

II  Returns  a  character  siring  containing  the  last  configuration 

II  worked  on  by  a  user 

II 

II  getPrototypeName 

II 

II  Prints  the  prototype  name  to  standard  output 

II 

II  getPrototypeheader 

II 

If  Displays  the  prototype  designer  team  leader's  name. 

II 

II  getPrototypeProtdescription 

II 

II  Displays  a  proidescription  of  the  prototype. 

II 

II  changePrototypeName 

II 

II  Change  the  name  of  the  prototype. 

II 

II  changePrototypeLeader 

II 

II  Change  the  prototype  leader's  name. 

II 
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//  updatePrototypeProldescription 

II 

II  Adds  a  protdescription  to  a  PROTOTYPE  object. 

II 

II  dumpPrototypeSummary 

II 

II  Provides  date  created,  leader,  default  configuration, 

II  and  description  of  a  prototype. 

II 

II  addConfiguration 

II 

II  Adds  a  configuration  with  a  given  name  to  the  prototype 

II 

II  UstConfigurations 

II 

II  List  the  names  of  all  the  configurations  in  the  prototype. 

II 

II  getDefaultConfigName 

II 

If  Displays  the  name  of  the  default  configuration. 

II 

If  getConfiguration 

II 

If  Used  by  this  class  as  a  support  function  to  update  the  default 

If  configuration. 

II 

If  getDefaultConfiguration 

II 

II  returns  a  pointer  to  the  default  Configuration 

II 

II  getVobject 

II 

II  returns  the  most  current  root  V.OBJECT  (Operator  or  Type) 

If  associated  with  a  prototype. 

II 

II  ^prototype 

II 

1/  The  class  destructor. 

II 

II  End 

#endif  //  -PROTOTYPE-!! 
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//  File  Header 

// •• 

//.Filename :  prototype. cxx 

//.SCCS  ID :  1.3 

// .Release  No....:  1 

//.Date ;  9/16/91 

/ / .Author ;  Garry  Lewis 

/ / :  Drew  Dwyer 

//.Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
1/  object  file 

static  char  prototype_cxx_SccsId[]  =  "C(#)prototype.cxx  1 .3\t9/16/91"; 

//  Contents 

// 

//  PROTOTYPE-PROTOTYPE  ONTOS  constructor 

II  PROTOTYPE-PROTOTYPE  constructor 

II  PROTOTYPEr.Destroy 

II  PROTOTYPE::getDtrectType 

H  PROTOTYPE::getName 

II  PROTOTYPEr.getConfigName 

II  PROTOTYPEr.getProtoiypeName 

II  PROTOTYPEr.getPrototypeLeader 

If  PROTOTYPEr.getPrototypeDescriptton 

II  PROTOTYPEr.changePrototypeName 

II  PROTOTYPEr.changeProiotypeLeadtr 

II  PROTOTYPE::updateProtoiypeDescnpiion 

II  PROTOTYPEr.dumpPrototypeSummary 

II  PROTOTYPE::addConfiguratton 

II  PROTOTYPE::listConfigurations 

II  PROTOTYPE::setProtCreattonDate 

II  PROTOTYPE: :getProtCreattonDate 

II  PROTOTYPE::getDefaultConfigName 

II  PROTOTYPE:  .getConfiguration 

II  PROTOTYPE::getDefaultConfiguration 

II  PROTOTYPE::getVobjeci 

II 

If  Description 

II 

II  Implementation  of  class  PROTOTYPE  member  functions. 

II 

II  End 

//  Interface  Dependencies 


•include  <GlobalEntities .h> 
•include  <Directory .h> 
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#include  <stream.hxx> 

extern  "C — " 

{ 

#include  <sys/time.h> 

#include  <strings.h> 

} 

#ifndef  -PROTOTYPE  JI 
# include  " prototype. h" 
# end if 


//  End  Interface  Dependencies 

extern  Type  *PROTOTYPE_OType; 
extern  Type  *CONFIGURATION_OType; 

//  ONTOS  required  constructor  // 

PROTOTYPE::PROTOTYPE(APL  *theAPL)  :  (theAPL) 
{ 

}; 

//  New  Instance  Constructor  // 

PROTOTYPE: :PROTOTYPE(char  *prototype_name, 

char  *prototypeJeader)  :  (prototype_name) 

//  Summary 

// 

//  Constructs  a  persistent  prototype  object.  A  PROTOTYPE  object 

If  contains  general  management  information  about  a  prototype  and 

II  a  reference  to  a  container  holding  configuration  objects. 

II 

II  Parameter 

II 

II  prototype. name 

II 

If  A  pointer  to  a  character  string. 

II 

II  prototype  .leader 

II 

II  A  pointer  to  a  character  string. 

II 

If  Functional  Description 

II 

If  Passes  the  object  name  to  class  Object.   Copies  the  leader's  name 
II  into  private  data  members.    We  initialize  the  description  to  null 
II  and  create  a  dictionary  to  hold  various  configurations. 

II 


227 


//  End 

{ 

initDirectType(PROTOTYPE.OType); 

protleader  =  new  char[strlen(prototypeJeader)+l]; 
strcpy(protleader,  prototypeJeader); 
protDictlndex  =  0; 
protCreationDate  =  setProtCreationDate(); 

protdescription.initToNull(); 
prot_default_configuration.initToNull(); 

if(!CONFIGURATION_OType) 

{ 
CONFIGURATIONJDType  =  (Type*)OCJookup("C0NFIGURATI0N"); 

} 

Dictionary  *new_configuration  =  new  Dictionary(OC_integer, 

CONFIGURATION.OType, 
TRUE,  FALSE); 

new_configuration  — ►putObject(); 

prot_configurationJist.Reset(new_configuration,  this); 

putObject(); 
} 

//  End  Constructor  PROTOTYPE-PROTOTYPE  // 
If  Member  Function  // 

void  PROTOTYPE: :Destroy(Boolean  aborted) 

{ 

delete  protleader; 
if  (aborted) 

{ 

Object  ::Destroy  (aborted); 

} 
} 

Type*  PROTOTYPE: :getDirectType() 

//  Summary 

// 

//  reiums  the  ONTOS  Type  for  the  prototype  class. 

II 

II  Return  value 

II 

II  A  pointer  to  an  ONTOS  Type. 

II 

II  End 
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{ 

return  PROTOTYPE.OType; 
} 

char  *  PROTOTYPE::getName() 


//  Summary 

// 

//  returns  the  name  of  the  prototype 

II 

II  Return  value 

II 

II  A  pointer  to  a  character  string 

II 

II  End 


Directory  *directory=(Directory  *)0; 
char  *name=(char  *)0; 
char  *temp=(char  *)0; 

if(!this) 

{ 

cerr  <  "<ERROR:    cannot  get  the  name  of  a  null  PR0T0TYPE>\n"; 
return  NULL; 

} 
else 

{ 

name  =  Name(); 

OC_getNameComponents(name,  ^directory,  &name); 

temp  =  new  char  [strlen(name)+l]; 

temp  =  strtok(name,"."); 

return  temp; 

} 

} 

void  PROTOTYPE: :getPrototypeName() 

//  Summary 

// 

//  Displays  the  name  of  the  prototype 

II 

II  Return  value 

II 

II  Displays  the  Prototype  Name  and  a  linefeed  to  the  stdout 

II 

II  End 


Directory  *directory; 
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char  *name; 

if(!this) 

{ 

cerr  <C  "<ERROR:    cannot  get  the  name  of  a  null  PROTOTYPE>\n"; 
return; 

} 
else 

{ 
name  =  Name(); 

OC_getNameComponents(name,  ^directory,  fcname); 
cout  <C  name  ■<  "\n"; 

} 
} 

void  PROTOTYPE: :getPrototypeLeader() 

//  Summary 

// 

//  Displays  the  name  of  the  prototype  leader 

II 

II  Return  value 

II 

II  Displays  the  Prototype  leader  and  a  linefeed  to  the  stdout 

II 

If  End 


{ 

if(!this) 

{ 

cerr  <C  "<ERROR:    cannot  get  the  leader's  name  of  a  null  PROTOTYPE>\n"; 
return; 

} 
cout  <C  protleader  <C  "\n"; 

} 
voidPROTOTYPE::getPrototypeDescription() 

//  Summary 

// 

//  Displays  the  prototype  description 

II 

II  Return  value 

II 

II  Displays  description  to  stdout  if  a  description  exists 

II 

II  End 

{ 

if(!this) 
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{ 

cerr  <  "<ERROR:  cannot  get  the  description  of  a  null  PR0T0TYPE>\n"; 
return; 

} 
if(!protdescription) 

{ 

cerr  <C  "<This  prototype  does  not  contain  a  description>\n"; 
return; 

} 
else 

{ 

TEXT-OBJECT*  myTextObjPtr  =  (TEXT-OBJECT*)  protdescription.Binding(this); 

myTextObjPtr  — ►  text(cout); 
} 

} 

void  PROTOTYPE::changePrototypeName(char  *new_prototype_name) 

//  Summary 

// 

//  Changes  the  prototype  name 

II 

II  Parameter 

II 

If  new  .prototype. name 

II 

II  a  character  string  pointer  containing  the  new  name 

II 

II  Return  value 

II 

II  N/A 

II 

II  End 


{ 

if(!this) 

{ 

cerr  <C  "<ERR0R:    cannot   set  the  name  of  a  null  PR0T0TYPE>\n"; 
return; 

} 
Name(new_prototype_name) ; 

} 

void  PROTOTYPE::changePrototypeLeader(char  *new_prototypeJeader) 


//  Summary 

// 

//  changes  the  prototype  leader 

II 

II  Parameter 
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// 

//  new. ■prototype Jtader 

II 

If  a  character  string  pointer  containing  the  new  leader's  name 

II 

II  Return  value 

II 
UN/A 

II 

II  End 


{ 


if(!this) 

{ 

cerr  <  "<ERROR:    cannot   change  the  leader  of  a  null  PROTOTYPE>\n"; 
return; 

} 
delete  protleader; 

protleader  =  new  char[strlen(new_prototypeJeader)-fl]; 
strcpy(protleader,  new  .prototype  Jeader); 
putObject(); 

} 

void  PROTOTYPE::updatePrototypeDescription(char  *fileName,  ifstreamfc  input_filejstream) 

//  Summary 

// 

//  changes  the  prototype  description 

II 

If  Parameter 

II 

II  fileName 

II 

II  a  character  string  pointer  containing  the  new  name  of 

II  the  file  containing  the  new  description. 

II 

II  input-file  stream 

II 

II  the  file  handle  of  the  input  description  file. 

II 

II  Return  value 

II 
UN/A 

II 

II  End 


if  (!protdescription) 

{ 
TEXT.OBJECT  *textObjectPtr  =  new  TEXT_OBJECT(); 
textObjectPtr  — ►  append(fileName,  input _file_stream); 
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protdescription.Reset(textObjectPtr,  this); 
putObject(); 

} 
else 

{ 
TEXT_OBJECT  TextObjectPtr  =  (TEXTDBJECT*)  protdescription.Binding(this); 

textObjectPtr  — ►  resetTheText(); 

textObjectPtr  — ►  append(fileName,  input_file_stream); 

putObject(); 

} 

} 

void  PROTOTYPE: :dumpPrototypeSummary() 
{ 

//  Summary 

// 

//  Displays  the  date  created,  leader,  default  config,  and 

II  description  of  a  prototype  to  stdout 

II  1  item  per  line  ending  with  the  (potentially)  multi-line 

II  description. 

II 

II  Parameter 

II 

II  N/A 

II 

II  Return  value 

II 

II  N/A 

II 

II  End 

time_t  creationdate  =  0; 

creationdate  =  getProtCreationDate(); 

cerr  <C  "Creation  Date:      "; 

cout  <C  ctime(&creationdate)  <C  "\n"; 

cerr  <  "Leader:      "; 

getPrototypeLeader(); 

cerr  <"Default  Config:      "; 

getDefaultConfigName(); 

cerr  <C  "Prototype  Description 
follows :  \n==============================\n\n" ; 

getPrototypeDescription(); 
} 

void  PROTOTYPE::addConfiguration(CONFIGURATION  *configuration) 
{ 

//  Summary 

// 

//  adds  a  configuration  to  the  prototype 
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// 

//  Parameter 

II 

II  configuration 

II 

II  a  pointer  to  the  configuration  to  be  added  to  the 

II  prototype. 
II 

II 

II  Return  value 

II 

II  N/A 

II 

II  End 

if(!this) 

{ 

cerr  <  "<ERROR:  cannot  set  the  description  of  a  null  PR0T0TYPE>\n"; 

return; 

.    } 
if(!configuration) 

{ 

cerr  <  "<ERR0R:  cannot  give  to  a  PROTOTYPE  a  null  conf  iguration>\n"; 

return; 

} 
else 

{ 

protDictlndex  =  protDictlndex  +  1; 
Dictionary*confDictionaryPtr= 

(Dictionary*)prot_configurationJist.Binding(this); 
confDictionaryPtr  — ►  Insert(protDictIndex,  (Entity  *)configuration); 
confDictionaryPtr  — ►  putObject(); 
prot_default_configuration.Reset(configuration,  this); 
putObject(); 

} 
} 

void  PROTOTYPE: :listConfigurations() 

//  Summary 

// 

//  Display  the  configuration  names  contained  in  this  prototype 

II  to  stdout.   1  configuration  /  line. 

II 

If  Parameter 

II 

II  N/A 

II 

II  Return  value 

II 

II  N/A 
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// 

//  End 


{ 

CONFIGURATION  *the_configuration; 
char  *name; 
Directory  *directory; 


if(!prot_configuration_list) 

{ 

cerr  <C  "<ERROR:  cannot  return  a  prototype  from  an  empty  list>\n"; 

return; 
} 

Dictionary  *confDictionaryPtr  = 

(Dictionary  *)prot_connguration_list.Binding(this); 
Dictionarylterator  configlistJterator(confDictionaryPtr); 

while(the.configuration  =(CONFIGURATION*)(Entity*)configlist_iterator()) 

{  m 

if  (name  =  the.configuration— >Name()); 

{ 

OC_getNameComponents(name,  ^directory,  &name); 
cout  <C  name  <C  "\n"; 
} 
} 
} 

//Member  Function  // 

time.t  PROTOTYPE: :setProtCreationDate() 

//  Summary 

// 

//  sets  the  creation  date  to  system  date  at  time  of  this  call. 

II 

J/  Parameter 

II 
UN/A 

II 

II  Return  value 

II 

II  time-t  as  a  default  long  value  containing  the  system  time 

II  This  function  as  a  byproduct  updates  the  protCreationDate 

II  attribute  field. 

II 

II  End 


time_t  mytloc=0; 
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time_t  theTime; 

return  theTime  =  time(mytloc); 
} 

//  End 


//  Member  Function  // 

timet  PROTOTYPE::getProtCreationDate() 

//  Summary 

// 

//  Returns  the  prototype's  creation  date 

II 

II  Parameter 

II 

II  N/A 

II 

II  Return  value 

II 

II  timeA  as  a  long  value  containing  the  system  time 

II 

II  End 

{ 

return  protCreationDate; 

} 

//  End 

void  PROTOTYPE::getDefaultConfigName() 

//  Summary 

// 

//  Displays  the  default  Configuration  name  for  this  prototype 

If  to  stdout 

II 

II  Parameter 

II 

II  N/A 

II 

II  Return  value 

II 

II  N/A 

II 

II  End 

{ 

Directory  *directory; 
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char  *name; 

if(!prot_default_configuration) 

{ 

cerr  <C  "\n\n<No  configurations  are  contained  in  this  prototype.  >\n\n"; 

} 
else 

{ 

CONFIGURATION  *the_configuration  = 

(CONFIGURATION*)prot_default.configuration.Binding(this); 
name  =  the.configuration  — ►  Name(); 
OC_getNameComponents(name,  ^directory,  fcname); 
cout  <C  name  <C  H\n"; 
} 
} 

char  *  PROTOTYPE: :getConfigName() 
{ 

//  Summary 

// 

//  Returns  a  character  string  pointer  to  an  area  in  memory 
jl  containing  the  name  of  the  default  Configuration  name 
II  for  this  prototype. 

II 

II  Parameter 

II 

II  N/A 

II 

II  Return  value 

II 

II  character  string  pointer 

II 

II  End 

Directory  ^directory; 
char  *name; 

if(!prot_default_configuration) 

{ 

cerr  <C  "<Ho  configurations  are  contained  in  this  prototype.  >\n\n"; 
return  NULL; 

} 
else 

{ 

CONFIGURATION  *the_configuration  = 

(CONFIGURATION*)prot_default_configuration.Binding(this); 

name  =  the.configuration  — ►  Name(); 

OC_getNameComponents(name,  ^directory,  fcname); 

return  name; 
} 
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} 

CONFIGURATION  *PROTOTYPE::getConfiguration(char  *confName) 

//  Summary 

// 

//  Used  by  this  class  as  a  support  function  to  update  the  default 

II  configuration. 

II 

II  Parameter 

II 

II  confName 

II 

II  configuration  name  to  lookup  the  default  configuration 

II  for  this  prototype 

II 

II  Return  value 

II 

II  Configuration  pointer  if  successful.  Null  pointer  if 

II  failed. 

II 

II  End 

{ 

CONFIGURATION  *myConfPtr  =  (CONFIGURATION  *)OCJookup(confName); 

if  (myConfPtr) 

{ 

return  myConfPtr; 

} 
else 

{ 

return  (CONFIGURATION*^; 

} 
} 

CONFIGURATION  *PROTOTYPE::getDefaultConfiguration() 

//  Summary — 

// 

//  Returns  the  default  configuration  for  this  prototype. 

II  The  last  configuration  worked  on. 

II 

If  Parameter 

II 

II  N/A 

II 

II  Return  value 

II 

II  Configuration  pointer  if  successful.  Null  pointer  if 

II  failed. 

II 
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//  End 

{ 

CONFIGURATION  *the_configuration  ^(CONFIGURATION  *)0; 

if(  !prot_default_configuration) 

{ 

return  NULL; 

} 
else 

{ 

the_configuration  = 

(CONFIG URATION*)prot_default_configuration.Binding(this);  return  the_configuration; 

} 
} 

V-OBJECT  *PROTOTYPE::getVobject() 

//  Summary 

// 

//  This  method  assumes  thai  the  root  versioned  object  (V-OBJECT) 

II  has  the  same  name  as  the  prototype.  If  this  ts  not  the  case 

II  then  this  function  will  not  work.   Taking  the  prototype  name, 

II  a  thread  lookup  is  performed  and  the  most  current  V-OBJECT 

II  in  the  thread  is  returned. 

II 

II  Parameter 

II 

II  N/A 

II 

II  Return  value 

II 

If  V-OBJECT  pointer  if  successful.  Null  pointer  if 

II  failed. 

II 

II  End 


THREAD  *threadPtr=(THREAD*)0; 

char  *name  =  new  char  [strlen(getName())+l]; 

strcpy(name,getName()); 

threadPtr  =  (THREAD  *)OCJookup(name); 

if  (threadPtr) 

{ 

V_OBJECT  *  vobjectPtr  =  threadPtr— current(); 

if  (vobjectPtr) 

return  vobjectPtr; 
else 

{ 

return  NULL; 

} 


239 


} 

else 

{ 

return  NULL; 

} 
} 

//  end  functions 
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//  Ftle  Header 

// •• 

// .Filename :  queue. h 

//.SCCS  ID :  1.3 

f / .Release  No....:  1 

//.Date :  9/16/91 

1/ .Author :  Garry  Lewis 

/ j :  Drew  Dwyer 

//.Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


#ifndef  -QUEUE J 
#def  ine  _QUEUE_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
1/  object  file 

static  char  QUEUE_h_SccsIdQ  =  M«(#)queue.h  1 .3\t9/16/91"; 

//  Contents 

// 

//  QUEUE 

II 

If  Description 

II 

II  IMPLEMENTS  class  QUEUE  CONSTRUCTORS. 

II 

II  End : 

//  Interface  Dependencies 

// 

#include  <iostream.hxx> 

extern  MC— "{ 
#include  <stdio.h> 
#include  <string.h> 

} 

// 

//  End  Interface  Dependencies 

//  Description 

// 

//  Defines  the  slink,  slist,  slisLiterator, 

II  treenodeJinkedlist,  and  treenode. queue  classes 

II 

II 

II  There  are  no  onios  mechanisms  in  these  classes.    The  primary 

II  purpose  of  these  classes  is  to  provide  the  support  structures 
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//  of  HnkedJists  and  queues  in  order  to  process  the  CAPS 
II  PROTOTYPE  subdirectory. 

II 

II  As  a  subdirectory  is  read,  each  file  is  analzed  to  determine 

II  whether  it  is  an  operator/type.  If  found  to  belong  to 

II  an  operator  which  might  version,  the  operator  and  operator 

II  information  is  placed  into  a  multi-way  tree  parrallelling  the 

II  decomposition  of  an  operator  in  the  CAPS  system.   The 

II  TREENODES  are  then  compared  against  operator  structures  in 

II  the  Ontos  Database  in  other  programs  documented  elsewhere. 

II 

II  These  structures  are  simple  in  nature  and  can  be  found  in 

If  any  good  C++  textbook.    These  particular  examples  came  from 

II  Bjarne  Stroustrup's  C++  Programming  Language  textbook  (pg  203). 

II  Please  refer  to  the  textbook  for  further  explanation  of  the 

II  data  structures  and  how  they  are  manipulated. 

II 

II  End 

class  TREENODE; 

class  slist; 

class  slist  .iterator; 

class  slink  { 

friend  class  slist; 
friend  class  slistJterator; 

private: 

slink*  next; 
TREENODE  *  e; 
slink(TREENODE  *  a,  slink*  p); 

}; 


class  slist  { 

friend  class  slistJterator; 

private: 

slink*  last;  //  last->  next  is  head  of  list 

public: 

slist();  //  {  last  =  NULL;  } 

slist(TREENODE  *  a); 

int  insert(TREENODE  *  a);  //  add  at  head  of  list 

int  append(TREENODE  *  a);  //  add  at  tail  of  list 

TREENODE  *  get();  //  return  and  remove  head  of  list 

void  clear();  //  remove  all  links 

int  empty();  //  returns  1  if  list  is  empty 

~slist();  //  {  clearQ;  } 

}; 
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class  slist_iterator{ 

private: 

slink*  ce; 
slist*  cs; 

public: 

slist_iterator(slist&;  s); 
TREENODE  *  operator()(); 

}; 

class  TREENODEJinkedlist  :  public  slist 

{ 
public: 

TREENODE_linkedlist(); 

int  member(char  *name); 

}; 


class  TREENODELqueue  :  private  slist 

{ 
public: 

TREENODE_queue(){} 

void  put(TREENODE  *  a)  {append(a);  } 

slist  ::empty; 

slist:  :get; 

}; 

#endif  //  QUEUE  Class  header 
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//  File  Header 

// •• 

//.Filename ;  queue. czx 

/ /.SCCS  ID :  1.3 

/ / .Release  No....:  1 

//.Date ;  9/16/91 

/ / .Author :  Garry  Lewis 

/ / :  Drew  Dwyer 

//.Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
1/  object  file 

static  char  QUEUE_cxx_SccsIdQ  =  "C(#)queue.cxx  1 .3\t9/l6/91M; 

//  Contents 

// 

//  QUEUE 

II 

If  Description 

II 

II  IMPLEMENTS  class  QUEUE  CONSTRUCTORS. 

II 

II  End 

//  Interface  Dependencies 

// 

#ifndef  _QUEUE_H 
# include  " queue. h" 
#endif 

// 

//  End  Interface  Dependencies 

// X X X X -X 

II  these  are  the  implementation  methods  of  classes 

II  slink,  slist,  slist. iterator,  and  TREENODEJinkedlist 

II -X X X X X 

II X X X X X 

II 

II  slink  methods 

II 

II -X X X X -X 

slink::slink(TREENODE  *  a,  slink*  p) 

{ 

e  =  a; 
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next  =  p; 
} 

// X X X X -X 

II 

II  slist  methods 

II 

II -X X X X X 

slist:  :slist() 

{ 

last  =  NULL; 

} 

slist::slist(TREENODE  *  a) 

{ 

last  =  new  slink(a,NULL); 

last  — ►  next  =  last; 
} 

int  slist::insert(TREENODE  *  a) 

{ 
if  (last) 

last— >next  =  new  slink(a,  last— »-next); 
else  { 

last  =  new  slink(a,NULL); 
last  — ►  next  =  last; 

} 
return  0; 

} 

int  slist::append(TREENODE  *  a) 

{ 
if  (last) 

last  =  last  — +  next  =  new  slink(a,  last— *next); 
else 

{ 

last  =  new  slink(a,NULL); 
last  — ►  next  =  last; 

} 
return  0; 

} 

TREENODE  *  slist:  :get() 

{ 

//  improve  the  following  line  for  better  error  detection 
if  (last  ==  NULL)  cout  <C  "get  from  empty  slist\n"; 
slink*  f  =  last— ►  next; 
TREENODE  *  r  =  f^e; 
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if  (f  =====  last)  last  =  NULL; 
else  last  — mext  =  f— ►next; 
delete  f; 
return  r; 

} 

void  slist::clear() 

{ 
slink*  1  =  last; 
if  (  1  ==  NULL  )  return; 
do 

{ 

slink*  11  =  1; 

1  =  1— ►  next; 

delete  11; 
}  while  (1  ?=  last); 
} 

int  slist::empty() 

{ 
if  (last  ==  NULL)  return  1; 
else  return  0; 

} 

slist::~slist() 

{ 
clear(); 

} 

// X X X X -X 

II 

II  shst  iterator  methods 

II 

II -X X X X X 

slist  iterator: :slist  iterator(slist&;  s) 

{ 

cs  =  fcs; 

ce  =  cs  — ►  last; 
} 

TREENODE  *slist_iterator::operator()() 

{ 
TREENODE  *  ret  =  ce  ?  (ce  =  ce  -^  next)  -+  e  :  NULL; 
if  (  ce  ==  cs  —►last)  ce  =  NULL; 
return  ret; 

} 
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// X X X X X 

II 

II  TREENODEJinkedlist  methods 

II 

II X X X X -X 

TREENODEJinkedlist::TREENODEJinkedlist() 

{ 

} 

int  TREENODEJinkedlist: :member(char  *name) 

{ 

char  *temp  =  name; 

return  1; 

} 
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//  File  Header 

// •• 

// .  Filename :  text.object. h 

//.SCCS  ID ;  1.3 

/ / .Release  No....:  1 

II. Date :  9/16/91 

1 1  .Author :  Garry  Lewis 

II :  Drew  Dwyer 

I /.Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


#ifndel  _TEXT_OBJECT_H 
#def  ine  _TEXT.OBJECT_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in  object  file 

static  char  text_object_h_SccsIdQ  =  "«(#)text_object  .h  1 .3\t9/16/91M; 


//  Contents 

// 

//  TEXT.OBJECT 

II 

II  Description 

II 

II  Defines  class  TEXT.OBJECT. 

II 

II  End 


//  Interface  Dependencies  - — — 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in  object  file 


If  Interface  Dependencies 


#include  <Object.h> 
#include  <stream.hxx> 


//  End  Interface  Dependencies 

class  TEXT.OBJECT  :  public  Object 

{ 
private: 

char  *the_file_name; 

char  *the_text; 

public: 

TEXT_OBJECT(APL  *); 

TEXT_OBJECT(); 

void  Destroy  (Boolean  aborted=FALSE); 

Type  *getDirectType(); 
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void  append(char  *,  ifstream&); 

void  append(char  *); 

void  append(ifstream&;); 

void  text(ostreamfc);  //  standard  output 

Boolean  rebuildTextFile(char*); 
void  displayFileName(); 
char  *getFileName(); 
char  *text(); 
void  resetTheText(); 
~TEXT_OBJECT()  {  Destroy(FALSE);  } 

}; 

//  Description 

// 

//  Defines  a  TEXT.OBJECT  class.   The  class  TEXT.OBJECT  is  a  derived 

II  class  of  Object. 

II 

II  Constructor 

II 

II  TEXT.OBJECT  -  APL 

II 

II  ONTOS  required  constructor 

II 

II  TEXT.OBJECT 

II 

II  Creates  a  new  instance  of  TEXT.OBJECT 

II 

II  Public  Members 

II 

If  Destroy 

II 

II  ONTOS  required  method. 

II 

If  getDirectType 

II 

If  ONTOS  rqutred  method  used  to  return  the  class  Type. 

II 

II  append 

II 

If  Reads  in  a  text  file. 

II 

II  append 

II 

II  Read  in  a  siring  append  to  existing  string  in  log  fashion. 

II 

II  text 

II 

II  Send  the  text  contents  to  standard  output. 

II 

II  rebuildTextFile 

II 
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//  Write  the  contents  of  a  text  object  to  a  file. 

II 

II  displayFileName 

II 

II  Send  the  file  name  to  standard  output. 

II 

II  getFileName 

II 

II  Return  a  pointer  the  file  name  contained  in  the  text  object. 

II 

II  text 

II 

II  Returns  a  pointer  to  the  text  contained  in  the  text  object. 

II 

II  resetTheText 

II 

If  Set  the  text  field  to  a  empty  string. 

II 

II  ~TEXT.OBJECT 

II 

II  class  destructor. 

II 

II  End  Description 


#endif  // -TEXT.OB JECT.H 
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//  File  Header 

// •• 

//.Filename :  texi.objeci. cxx 

//.SCCS  ID ;  1.3 

/ / .Release  No....:  1 

//.Date :  9/16/91 

/ / .Author :  Garry  Lewis 

/ / :  Drew  Dwyer 

/ / .Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp 
1/  in  object  file 

static  char  composite_cxx_SccsId[]  =  "«(#)text_object .  cxx  1 .3\t9/16/91"; 

//  Contents 

// 

//  TEXT. OBJECTr.TEXT. OBJECT  Ontos  Constructor 

II  TEXT.OBJECTr.TEXT.OBJECT 

II  TEXT.OB  J  ECTrDestroy 

If  TEXT.OB JECT::geiDirectType 

II  TEXT.OBJECTr.append 

II  TEXT.OBJECTr.append 

II  TEXT.OBJECTr.append 

II  TEXT. OBJECT: :text 

II  TEXT.OB JECTr.rebuildTextFile 

II  TEXT.OB JECTrdisplayFtleName 

II  TEXT.OBJECTrgetFtleName 

II  TEXT.OBJECTr.text 

II  TEXT.OB JECTr.resetTheText 

II 

II  Description 

II 

II  Implementation  of  class  TEXT.OBJECT  member  functions. 

II 

II  End 

//  Interface  Dependencies 

# include  <str stream. hxx> 

#ifndei  _TEXT.OBJECT_H 

flinclude  "text.object .h" 
#endif 

tifndef  _TRACER_H 
# include  " tracer. h" 
#endif 
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#ifnde*  _DDBDEFINES_H 
#  include  "ddbdef  ines  .h" 
# end if 

extern  "C — " 

{ 

#include  <stdio.h> 
tinclude  <sys/time.h> 
#include  <sys/types.h> 
#include  <stdlib.h> 
tinclude  < strings. h> 

} 

//  End 

extern  Type  *TEXT_OBJECTDType; 
extern  char  *dirNamePtr; 

TEXT_OBJECT::TEXT_OBJECT(APL  *theAPL)  :  Object(theAPL) 

//  Summary — 

// 

//  Ontos  Required  Constructor 

II 

II  Return  value 

II 

II  A  TEXT-OBJECT  object 

II 

If  End 

{ 

}; 

TEXT  DBJ  ECT:  :TEXT  DBJ  ECT() 

//  Summary 

// 

//  Constructor 

II 

II  Return  value 

II 

II  A  TEXT.OBJECT  object 

II 

If  the.file.name  and  the.text  attributes  are  initialized  to  NULL; 

II  End 

{ 

the_text=new  char[l]; 
strcpy(the_text,""); 
the_file_name  =  new  char[l]; 
strcpy(theJile_name,  ""); 
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putObject(); 

}; 

void  TEXT_OBJECT::Destroy(Boolean  aborted) 

//  Summary — 

// 

//  Constructor 

II 

II  Return  value 

II 

II  A  TEXT-OBJECT  object 

II 

II  the.file.name  and  theJext  attributes  are  initialized  to  NULL; 

II  End 

{    m 

if(the_file_name); 

delete  the_file_name; 

delete  the_text; 

if  (aborted) 

{ 

Object  ::Destroy  (aborted); 

} 

}; 

Type  *TEXT_OBJECT::getDirectType() 

//  Summary 

// 

//  Onios  required  method  which  returns  the  type  of  this  object. 

II 

II  Parameter 

II 
UN/A 

II 

II  Return  Value 

II 

II  the  type  of  this  object.  TEXT.OBJECT. 

II 

II  End 

{ 

return  TEXT.OBJECT.OType; 

}; 

void  TEXT.OBJECT: :append(char  *filename,  ifstream&  input_file) 
//  Summary 

// 

//  append  a  file  as  a  text  object 

II 

II  Parameter 
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// 

//  filename 

II 

II  character  string  *  containing  the  name  of  the  file  which 

II  is  read  into  a  text.object. 

II 

II  input-file 

II 

II  file  handle  of  input  file 

II 

II  Return  Value 

II 

II  stores  the  file  as  a  text.object  in  the  database 

II  End 


the_file_name  =  new  char [strlen (filename)  +  1]; 
strcpy(the_file_name,  filename); 

ostrstream  buf; 

char  ch; 

while  (buf  kk.  input_file.get(ch)) 

{ 

buf.put(ch); 

} 
the.text  =  buf.str(); 
putObject(); 

}; 

void  TEXT-OBJECT: :append(char  *instring) 

//  Summary 

// 

//  append  a  character  string  as  a  text  object,  stores  the  character 

II  string  as  a  text.object  in  the  database 

II 

II  Parameter 

II 

II  instring 

II 

II  character  string  *  containing  the  description  to  be  added  as 

II  a  text.object. 

II 

II  Return  Value 

II 
UN/A 

II 

II  End 


time_t  mytloc=0; 
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time_t  theTime; 

char  *temp_text=the_text; 

the_text=new  char[strlen(temp_text)+strlen(instring)+ 
strlen(ctime(&;theTime))-|-l]; 

strcpy  (the  Jtext, temp  .text); 
strcat(the_text,  "\n"); 

theTime  =  time(mytloc); 
strcat(the_text,  ctime(&;theTime)) ; 
strcat(the_text,  "\n"); 

strcat(the_text,instring); 
strcat(the_text,  "\n"); 

putObject(); 

}; 

void  TEXT_OBJECT::append(ifstream&  inputJile) 

//  Summary — 

// 

//  append  a  file  as  a  text  object,   stores  the  file  as  a 

II  texi.object  in  the  database 

II 

II  Parameter 

II 

II  input-file 

II 

II  file  handle  of  input  file 

II 

If  Return  Value 

II 

II  N/A 

II 

II  End 

{ 

time.t  mytloc=0; 
time_t  theTime  =  0; 

char  *temp_text=the_text;  f  j save  old  text 

ostrstream  buf; 

char  ch; 

while  (buf  &&;  input  Jile.get(ch)) 

{ 

buf.put(ch); 

} 
theTime  =  time(mytloc); 
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char  *file_text  =  buf.str(); 

the_text=new  char[strlen(temp_text)+strlen(fileJtext)  + 

strlen(ctime(&:theTime))+256] ; 
int  tempsize  =  strlen(temp_text)+strlen(file_text)  + 

strlen(ctime(&;theTime))+256  ; 
strcpy  (the  .text, temp -text); 
strcat(the.text,  M\nH); 
strcat(the_text,  ctime(&theTime)); 
strcat(the_text,  "\n"); 
strcat(the  Jtext, file  Jtext); 
strcat(the_text,  M\n"); 

putObject(); 

} 

void  TEXT-OBJECT: :text(ostream&;  outstream) 

//  Summary 

// 

//  output  the  text.object  as  a  file,   dumps  the  text-object  to 

II  the  PROTOTYPE  environment  subdirectory 

II 

II  Parameter 

II 

II  outstream 

II 

II  file  handle  of  output  file 

II 

II  Return  Value 

II 

II  N/A 

II 

II  End 

{ 

outstream  <C  the.text; 

}; 


Boolean  TEXT-OBJECT: :rebuildTextFile(char  *fileMode) 

//  Summary 

// 

//  output  the  text-object  as  a  file  in  "r"  -  read  only  or  "w"  read 
II  and  write  mode  (refer  to  Unix  system  manual),  dumps  the 
II  text.object  to  the  PROTOTYPE  environment  subdirectory 

II 

II  Parameter 

II 

II  fileMode 

II 
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//  "r"  -  read  only,    "w"  read/write. 

II 

If  Return  Value 

II 

II  Boolean  SUCCESS  or  FAILURE  -  refers  to  success  of 

If  rebuilding  file  on  the  disk. 

II 

II  End 

{ 

ofstream  oFile; 

char  *mypath  =  new  char[MAX_LINE_LENGTH]; 

strcpy(mypath,  dirNamePtr); 

strcat(mypath,  "/"); 

strcat(mypath,  the_file_name); 

if  (strcmp(fileMode,  "w")  ==  0  ||  strcmp(fileMode,  "W")  ==  0) 

{ 

oFile.open(mypath,ios::noreplace); 

if(!oFile) 

{ 

return  FAILED; 

} 

} 
else 

{ 

oFile.open(mypath,  ios::noreplace,  0444); 
if  (!oFile) 

{ 

cerr  <  "<ERR0R:    file   "<the_file_name  <C  "   already  exists. >\n"; 

return  FAILED; 
} 
,    } 
if  (the.text) 

oFile  <C  the.text  ; 
oFile.close(); 
return  SUCCESS; 
} 

voidTEXT.OBJECT::displayFileName() 

//  Summary 

// 

//  Displays  the  text.object  filename  to  stdout. 

II 

II  Parameter 

II 

II  N/A 

II 

II  Return  Value 

II 

II  N/A 

II 

II  End 
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{ 

cout  <C  the_file_name  <C  "\n"; 
} 

char  *TEXT_OBJECT::getFileName() 

//  Summary 

// 

//  Returns  the  attribute  containing  the  name  of  the  file 

II  as  it  was  stored  on  the  disk. 

II 

II  Parameter 

II 
UN/A 

II 

II  Return  Value 

II 

If  character  string  containing  the  file  name  of  the  object 

II 

II  End 

{ 

return  the_file_name; 

} 


char  *TEXT_OBJECT::text() 

//  Summary 

// 

//  return  the  contents  of  the.text 

II 

If  Parameter 

II 
UN/A 

II 

If  Return  Value 

II 

II  character  string  pointer  with  the  text  in  the  text.object. 

II 

II  End 

{ 

return  the.text; 

}; 

void  TEXT_OBJECT::resetTheText() 

//  Summary 

// 

//  Reinitialize  the.text  attribute  to  a  blank  character. 

II 

If  Parameter 

II 
UN/A 
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// 

//  Return  Value 

II 
UN/A 

II 

II  End 

{ 

strcpy(the_text,  ""); 

} 


259 


//  File  Header 

// •• 

// .Filename :  thread. h 

//.SCCS  ID :  1.3 

/ / .Release  No....:  1 

//.Date ;  9/16/91 

// .Author :  Garry  Lewis 

/ / ;  Drew  Dwyer 

//.Compiler ;  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


#ifndef  _THREAD_H 
#def  ine  _THREAD_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
1/  object  file 

static  char  thread_h_SccsId[]  =  "©(#) thread. h  1.3\t9/16/91"; 


//  Contents 

// 

//  THREAD 

II 

II  Description 

II 

II  Defines  class  THREAD. 

II 

II  End 


//  Interface  Dependencies 

# include  <Object.h> 
#include  <Dictionary .h> 
#include  <Ref erence.h> 
#include "Ref erenceMacros  .h" 
tinclude  <stream.hxx> 

class  V_OBJECT; 

//  End  Interface  Dependencies 

TypeCheckReference(VOListReference,  Reference,  Dictionary); 

class  THREAD  :  public  Object 

{ 

private: 

int  current_version;  //  most  recent  rev. 
VOListReference  theJist; 

public: 
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THREAD(APL  *theAPL); 

THREAD(char  *id); 

virtual  void  Destroy  (Boolean  aborted=FALSE); 

virtual  Type  *getDirectType(); 

int  getCurrentVersionNum(); 

V.OBJECT  *current(); 

V.OBJECT  *version(int  version Jd); 

void  add_object(V_OBJECT  *new  .object); 

void  displayThreadVersions(); 

void  displayThreadContents(); 

}; 

//  Description 

// 

//  Defines  a  THREAD  class.   The  class  COMPONENT  is  a  derived  class 

II  of  Object  (i.e.  It  is  a  persistent  class).  A  thread  may 

II  contain  multiple  versions  of  an  COMPONENT,  composite  or 

II  configurations. 

II 

II  Constructor 

II 

II  Thread  -API 

II 

II  ONTOS  required  constructor. 

II 

II  Thread 

II 

II  Constructs  a  thread  with  the  given  name. 

II 

II  Public  Members 

II 

If  Destroy 

II 

If  Used  in  lieu  of  a  class  destructor. 

II 

II  getDirectType 

II 

II  ONTOS  required  method  to  return  the  class  type. 

II 

II  getCurrentVersionNum 

II 

II  Returns  the  version  number  of  the  vobject  last  add  to  the  thread. 

II 

II  current 

II 

II  Returns  a  pointer  to  the  current  vobject  in  the  thread. 

II 

II  version 

II 

II  Returns  a  pointer  to  a  user  designated  version  of  a  vobject. 

II 
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//  add.Object 

II 

II  inserts  a  vobject  into  the  thread. 

II 

II  display  Thread  Versions 

II 

If  List  the  version  numbers  of  vobjects  contained  in  the  thread. 

II 

II  display ThreadContents 

II 

II  Displays  the  version  number  and  description  of  each  vobject  in  the  thread. 

II 

II  End 

#endif  //  -THREAD.H 
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//  File  Header 

// •• 

// .Filename :  thread. cxx 

//.SCCS  ID :  1.3 

1/ .Release  No....:  1 

1 1. Date :  9/16/91 

1 1 .Author :  Garry  Lewis 

II :  Drew  Dwyer 

1 1.  Compiler :  Glockenspiel  C++  2.1 

II : 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in  object  file 
static  char  thread_cxx_SccsId[]  =  "€(#) thread. cxx  1.3\t9/16/91"; 

//  Contents 

// 

//  THREAD::THREAD  ONTOS  constructor 

II  THREAD: .THREAD  new  instance  constructor 

II  THREAD::Desiroy 

II  THREAD: :getDirectType 

II  THREADr.getCurrent VersionNum 

II  THREAD -current 

II  THREAD::version 

II  THREADr.add.object 

II  THREAD:  :dtsplay  Thread  Versions 

II  THREADr.displayThreadContents 

II 

II  Description 

II 

II  Implementation  of  class  THREAD  member  functions. 

II 

II  End 


#include  <GlobalEntities  .h> 
# include  <stream.hxx> 

#ifndef  _THREAD_H 

#include"thread.h" 

#endif 

#iindef  _VERSIONED.OBJECT_H 
#include  "versioned_object.h" 
# end if 


extern  Type  *THREAD.OType; 
extern  Type  *V_OBJECT.OType; 

THREAD::THREAD(APL  *theAPL):  (theAPL) 
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{ 

}; 

THREAD: :THREAD(char  *id):  (id) 

//  Summary 

// 

//  Constructs  a  persistent  THREAD  object.  A  thread  contains 

II  a  list  of  V.OBJECTS  (objects  which  version),  and  maintains 

II  the  most  current  version  from  that  list  of  versioned 

II  objects. 

II 

II  A  thread  is  stored  in  the  ONTOS  database  and  is  given 
II  visibility.   Therefore,  only  one  operator  may  generate  any 
II  given  thread. 

II 

II  It  is  expected  that  Variations  will  inherit  from  threads 

II  with  two  distinctive  bits  of  information: 

II 

II  the  thread  from  which  it  spawned  - 

II  the  version  number  from  which  it  originated 

II 

If  Parameter 

II 
l/id 

II 

If  passed  to  the  ONTOS  database  and  gives  persistence  and 

II  ONTOS  visibility  to  that  object 

II 

II  Return  Value 

II 

II  a  persistent  THREAD  in  the  ONTOS  database 

II 

II  End 

{ 

initDirectType(THREAD.OType); 

current  _version=0; 

Dictionary  *new_list=new  Dictionary(OC_integer, 

V.OBJECT.OType, 
TRUE,FALSE); 

newJist  — +putObject(); 

theJist.Reset(new_list,  this); 

putObject(); 

}; 

void  THREAD::Destroy(Boolean  aborted) 

{ 

Destroy(aborted) ; 

}; 
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Type  *THREAD::getDirectType() 

//  Summary 

// 

//  returns  the  ONTOS  Type  for  the  prototype  class. 

II 

If  Return  value 

II 

II  A  pointer  to  an  ONTOS  Type. 

II 

II  End 

{ 

return  THREAD.OType; 

}; 

int  THREAD::getCurrentVersionNum() 

//  Summary — 

// 

//  returns  the  current  version  number  in  the  thread  of 

II  versioned  objects 

II 

II  Parameter 

II 
UN/A 

II 

II  Return  value 

II 

II  An  integer  value  representing  the  current  version  of  the 

II  operator/type  (as  defined  by  CAPS) 

II 

II  End 

{ 

return  current  .version; 

} 

V_OBJECT  *THREAD::current() 

//  Summary 

// 

//  returns  the  current  versioned  object  in  the  thread. 

II 

II  Parameter 

II 
UN/A 

II 

II  Return  value 

II 

II  A  V.OBJECT  pointer 
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// 

//  End 

{ 

Dictionary  *tempJist=  (Dictionary*)the_list.Binding(tkis); 

V.OBJECT  *mytempvo  =  (V_OBJECT*)(Entity*)(*tempJist)[current_version]; 

return  mytempvo; 

}; 

V.OBJECT  *THREAD::version(int  the. version) 

//  Summary 

// 

//  returns  the  desired  version  in  the  thread  of  versioned 

II  objects 

II 

II  Parameter 

II 
UN/A 

II 

II  Return  value 

II 

II  A  V.OBJECT  pointer 

II 

II  End 

{ 

Dictionary  *temp_list=  (Dictionary*)the_list.Binding(this); 

V.OBJECT  *mytempvo  =  (V_OBJECT*)(Entity*)(*tempJist)[the_version]; 

return  mytempvo; 

}; 


void  THREAD::add_object(V_OBJECT  *new_object) 

//  Summary — 

// 

//  adds  a  versioned.ohject  to  the  thread,  and  updates  the 

II  curreni.version  attribute  to  reflect  the  newer  version 

II 

II  Parameter 

II 

II  new.vobject 

II 

II  V.OBJECT  pointer 
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// 

//  Return  Value 

II 
IJN/A 

II 

II  End 


{ 

if(!this) 

{ 

cout  -C  "<ERROR:    cannot  attach  a  v.object  to  a  null  THREAD>\n"; 
return; 

_    } 
if(!new_object) 

{ 

cout  <C  "<ERR0R:    cannot   insert  a  null  v_object   into  a  thread>\n"; 
return; 

} 
else 

{ 

current  .version  =  current  ..version  +  1; 

Dictionary  *temp_list  =  (Dictionary*)the_list.Binding(this); 

tempJist  — ►  Insert(current_version, (Entity  *)new  .object); 

tempJist  — »•  putObject(); 

putObject(); 

} 

}; 

void  THREAD: :displayThreadVersions() 


{ 


//  Summary 

// 

//  Display  the  versions  within  a  thread  to  stdout 

II 

II  Parameter 

II 

II  N/A 

II 

II  Return  Value 

II 

II  N/A 

II 

II  End 


Dictionary  *temp_list=  (Dictionary*)the_list.Binding(this); 

Dictionarylterator  next(temp  Jist) ; 

cerr  <  "THIS  THREAD  CONTAINS  THE  FOLLOWING  VERSIONS :\n\n"; 
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while(next.moreData()) 

{ 

V.OBJECT  *temp=(V_OBJECT  *)(Entity  *)next(); 
temp— ►displayVersionNumber(); 

}; 

}; 


voidTHREAD::displayThreadContents() 
{ 

//  Summary 

// 

//  Displays  the  version  and  description  of  each  versioned 

II  object  of  a  thread. 

II 

If  NOT  USED  in  current  implementation  of  Design  Database. 

II 

II  Parameter 

II 
UN/A 

II 

If  Return  Value 

II 
UN/A 

II 

II  End 

Dictionary  *temp_list=  (Dictionary*)the_list.Binding(this); 

Dictionarylterator  next(tempJist); 

cerr  <  "THIS  THREAD  CONTAINS  THE  FOLLOWING  VERSIONS :\n\n"; 
while(next.moreData()) 

{ 

V.OBJECT  *temp=(V_OBJECT  *)(Entity  *)next(); 

temp— ^display  VersionNumber(); 

cout  <C  "\n"; 

temp— ►getDescription(); 

cout  <  "\n"; 

}; 
}; 
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//  File  Header 

// •• 

//.Filename :  tree.h 

//.SCCS  ID :  1.3 

/ / .Release  No....:  1 

/ /.Date :  9/16/91 

// .Author :  Garry  Lewis 

1/ :  Drew  Dwyer 

1 1 .Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


#ifndef  _TREE_H 
#def  ine  _TREE_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
II  object  file 

static  char  tree_h_SccsIdQ  =  "«(#)tree.h  1 .3\t9/16/91"; 


//  Contents 

// 

//  TREE  HEADER 

II 

If  Description 

II 

II  Defines  class  TREE. 

II 

II  End 


//  Interface  Dependencies — — 

#ifndef  _TREENODE_H 
#include  "treenode.h" 
# end if 

//  End  Interface  Dependencies 

class  TREE 

{ 

private: 

char  *tree_name; 

TREENODE  *  theTreeRootNode; 

public: 

TREE(TREENODE  *,char  *);  //  input  list  and  resulting  rootnode 

void  build_tree(TREENODE  *, TREENODE Jinkedlist); 
TREENODE  *nnd.treenode(TREENODEJinkedlist,  char  *); 

}; 

//  Description — 
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// 

//  Defines  the  TREE  class. 

II 

II  Constructor 

II 

jl  Constructs  a  multiway  tree  from  a  linked  list  of  nodes 

II  identified  as  operators  from  reading  the  subdirectory  in 

II  TREENODE  class.  In  this  tree  is  one  unique  TREENODE  - 

II  the  "root".   Once  the  root  is  identified,  reference  to 

II  the  tree  can  be  passed  to  other  classes  who  can  then  deal 

II  individually  with  nodes  in  that  tree  through  the  TREENODE 

If  class. 

II 

II  TREE 

II 

If  constructs  the  tree  given  a  TREENODE  object  and  a  character 

II  string  pointer  to  the  root  operator. 

II 

II  Public  Members 

II 

II  build.tree 

II 

II  takes  in  the  root  TREENODE  and  a  linked  list  of  other 

II  generic  operator  nodes  and  builds  the  multiway  tree  using 

II  pointers  and  lists  of  children  nodes. 

II 

II  findAreenode 

II 

If  given  a  character  string  of  a  TREENODE  and  a  linked  list  of 
II  TREENODES,  search  the  linked  list  and  return  a  TREENODE 
If  pointer  on  a  match.  Return  a  NULL  pointer  if  fails. 

II 

II  End 

#endif  //  -TREE.H 
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//  File  Header 

// •• 

// .Filename :  iree.cxx 

//.SCCS  ID ;  1.3 

/ / .Release  No....:  1 

//.Date :  9/16/91 

/ / .Author ;  Garry  Lewis 

1/ :  Drew  Dwyer 

/I. Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
II  object  file 

static  char  tree_cxx_SccsId[]  =  "«(#)tree.cxx  1 .3\t9/16/91"; 

//  Contents 

// 

//  TREE: .TREE 
II  TREEr.build.tree 
II  TREEr.find.treenode 

II 

II  Description 

II 

II  IMPLEMENTS  class  TREE  CONSTRUCTORS. 

II 

II  End 

//  Interface  Dependencies 


#include  <Database.h> 
#include  <stream.hxx> 

extern  "C — " 

{ 

#include  <stddef .h> 
#include  <stdlib.h> 
#include  <stdio.h> 
t include  <string.h> 
#include  <dirent.h> 
#include  <sys/stat.h> 
tinclude  <time.h> 
} 

#ifndef  _TREE_H 
#include"tree.h" 

#endif 

#if ndef  _QUEUE_H 
# include  " queue. h" 
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# end if 

#ifndef  _NODESUPPORT_H 
# include  "nodesupport.h" 
# end if 

// End  Interface  Dependencies 

TREE::TREE(TREENODE  *future_root,char  *treename) 

//  Summary 

// 

//  Constructor 

II 

II  Parameter 

II 

II  future.root 

II 

If  TREENODE  pointer  containing  the  future  root  of  the  multiway 

II  tree 

II 

If  treename 

II 

II  character  string  -  the  same  name  as  the  root  operator 

II 

II  Return  Value 

II 

II  A  construied  multiway  tree  reflecting  the  nodes  which 
II  exist  in  the  subdirectory  and  which  will  be  checked  into 
If  the  design  database 

II 

II  End 

{ 

tree_name  =  new  char  [strlen(treename)+l]; 

strcpy  (tree  jiame,  treename); 

theTreeRootNode  =  future  _root; 
} 

TREENODE  *TREE::find_treenode(TREENODEJinkedlist  list_to_search, 

char  *node_name) 


//  Summary 

// 

//  findJreenode 

II 

II  Parameter 

II 

II  list-to. search 

II 

II  a  linked  list  of  TREENODES 
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// 

//  node-name 

II 

II  the  operator/type  to  search  for  (i.e.  -  the  name  of  the 
II  operators  filename  MINUS  the  .ps,  .graph,  .xmp.psdl, 
II  .spec.psdl,  .a  extension 

II 

II  Return  Value 

II 

II  TREENODE  if  found  -  NULL  pointer  if  not  found. 

II 

II  End 


slist iterator  list _iterator(list_to_search); 
TREENODE  *tnode; 
while  (tnode=:list  Jterator()) 

if  (strcmp(tnode— ►getname(),node_name):==0) 
return  tnode; 
return  NULL; 

} 

void  TREE::build_tree(TREENODE  *root_node,TREENODE_linkedlist  searchJist) 

//  Summary 

// 

//  Builds  a  muliiway  tree  containing  the  nodes  in  the  directory 
II  and  information  required  to  determine  whether  a  new  version 
II  of  the  node  must  be  created  in  the  ONTOS  Design  Database. 

II 

II  Parameter 

II 

II  root-node 

II 

I/  the  unique  TREENODE  which  is  the  root  of  this  muliiway  tree 

II 

II  search-list 

II 

If  a  list  of  operators  in  the  subdirectory  pointed  to  by  the 

II  environment  variable  PROTOTYPE 

II 

II  Return  Value 

II 
UN/A 

II 

II  End 


{ 


TREENODE  *  nodeptr; 
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TREENODE  *  temp_TREENODE_ptr; 

TREENODE  *  new.TREENODE.ptr; 

//  create  the  queue  inorder  to  construct  the  tree 

TREENODE.queue  tree_node_queue; 

tree_node_queue.put(root  jiode); 

//  now  the  queue  has  the  first  TREENODE  on  it 

while  (!tree_nodejqueue.empty()) 

{ 

temp_TREENODE_ptr  =  tree_nodejqueue.get(); 

//  now  iterate  through  searchJist  ,  look  for  NODES  whose  associated 

II  strings  are  "proper"  superstrings  of  temp.TREENODE.ptr->operator.name 

II  If  they  are  create  a  TREENODE  for  these  child  nodes, 

II  put  the  TREENODE  in  queue  as  well  as  in  temp. TREEN ODE. ptr->  children 

II  list. 

slistJterator  Operator Ptr(search .list); 

while  (nodeptr=OperatorPtr()) 

{  m 

if  (proper-super  _NODEjcheck(nodeptr, temp  .TREENODE  _ptr— *getname())) 
//  create  the  new  TREENODE 

{ 

new.TREENODE.ptr  =  new  TREENODE(nodeptr,  temp_TREENODE_ptr); 

tree_nodejqueue.put(new_TREENODE4>tr); 

temp_TREENODE_ptr-+insertChildNode(new_TREENODE_ptr); 

} 

} 
} 
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//  Ftle  Header 

// •■ 

// .Filename :  treenode.h 

//.SCCS  ID :  1.3 

/ / .Release  No....:  1 

//.Date :  9/16/91 

/ / .Author :  Garry  Lewis 

1/ :  Drew  Dwyer 

II. Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


#ifndef  _TREENODE_H 
#def ine  _TREENODE_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
II  object  file 

static  char  treenode_h_SccsId|]  =  "«(#)treenode.h  1 .3\t9/16/91"; 


//  Contents 

// 

//  TREENODE  HEADER 

II 

II  Description 

II 

II  Defines  class  TREENODE. 

II 

II  End 


//  Interface  Dependencies 

#ifndef  _QUEUE_H 
# include  " queue. h" 
#endif 


#ifndef  _VERSIONED_OBJECT_H 
#include  "versioned_object  .h" 
#endii 


//  End  Interface  Dependencies 
class  TREENODE; 


class  TREENODE 

{ 

private: 

char  *tree_node_name; 

char  *node_name; 

long  timestamp; 

int  level; 

TREENODEJinkedlist  ChildrenList; 
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TREENODE  *  ParentNode; 

public: 

TREENODE(char  *,TREENODE  *); 

TREENODE(TREENODE  *,TREENODE  *); 

void  updatetimestamp(long  time); 

char  *getname(); 

void  insertChildNode(TREENODE  *); 

TREENODE Jinkedlist  getChildren(); 

TREENODE  *getParentNode(); 

char  *get_asc_time(); 

int  getlevel(); 

long  getJong_time(); 

void  listjsubtree(); 

void  checkinjsubtree(V .OBJECT  *); 

V.OBJECT  *checkin_node(V_OBJECT  *); 

}; 

//  Description 

// 

//  TREENODE 

II 

II  TREENODE 

II 

If  Constructor  -  Builds  a  treenode  to  be  a  node  plus  pointer 

II  information  for  building  a  multiway  tree. 

II 

II  updatetimestamp 

II 

II  used  to  compare  the  most  current  filestamp  of  the  group  of 

II  five  files  in  a  versioned  object  from  the  disk  directory 

II  pointed  to  by  the  CAPS  environment  variable  PROTOTYPE  to 

II  the  locktime  of  the  matching  versioned  object  stored 

If  in  the  Design  database. 

II 

II  getname 

II 

If  returns  the  character  string  name  of  the  treenode. 

II 

II  insertChildN ode 

II 

II  used  to  insert  a  node  as  a  child  of  the  current  treenode 

II 

II  geiChildren 

II 

II  returns  the  linked  list  of  children  of  this  node 

II 

II  getParentNode 

II 

II  returns  the  parent  of  this  node 

II 
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//  get-asc-time 

II 

If  returns  the  ctime  function  for  the  treenode  timestamp  attribute 

II 

II  getJevel 

II 

II  returns  the  integer  level  (0  =  root,  1  is  removed  from  root 

II  1  level,  etcetera 

II 

If  getAongJLime 

II 

II  returns  the  timestamp  from  the  treenode  as  a  long  that  can 

II  be  used  in  a  comparison  in  the  checkin.node  function 

II 

II  listsubtree 

II 

II  used  for  debugging.  Lists  the  multiway  tree 

II 

II  checkin subtree 

II 

II  after  the  multiway  tree  is  built,  this  function  launches  the 

II  recursion  which  does  the  bulk  of  the  work. 

II 

II  checkin.node 

II 

II  the  function  which  compares  the  TREENODE  (as  read  from 

II  disk)  to  threads  in  the  database.  If  a  match  is  found, 

II  locktimes  are  compared  to  timestamp  and  if  timestamp  is 

II  more  recent,  then  a  new  versioned  object  is  created  for 

If  the  database.  All  version  links  are  set  up  in  this 

If  function 

II 

II  End  Description 


#endif  //  header  file 
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//  File  Header 

//•••• : 

//.Filename :  treenode. cxx 

//.SCCS  ID :  1.3 

/ / .Release  No....:  1 

/ /.Date ;  9/16/91 

// .Author ;  Garry  Lewis 

/ / :  Drew  Dwyer 

//.Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in 
1/  object  file 

static  char  treenode_cxx_SccsId[]  =  "O(#)treenode.cxx  1 .3\t9/16/91"; 

//  Contents 

// 

//  TREENODEr.TREENODE 

If  TREENODEr.TREENODE 

If  TREENODEr.updatetimestamp 

II  TREENODErgetname 

II  TREENODE::insertChildNode 

II  TREENODE::getChildren 

II  TREENODE::getParentNode 

II  TREENODErget.asc.time 

II  TREENODEr.getlevel 

II  TREENODEr.get.long.time 

II  TREENODE::list.subtree 

II  TREEN ODE: :checkin. subtree 

If  TREENODE::checkin.node 

II 

II  Description 

II 

II  IMPLEMENTS  class  TREENODE  CONSTRUCTORS  and  methods. 

II 

II  End 


//  Interface  Dependencies  - 
#include  <Directory .h> 

# include  < stream.  hxx> 

extern  "C — " 

{ 

# include  <stddef .h> 

#include  <stdlib.h> 
#include  <stdio.h> 
#include  <string.h> 
# include  <dirent.h> 
# include  <sys/stat .h> 


278 


#include  <time.h> 

} 

#ifndef  _THREAD_H 

#include"thread.h" 

#endif 

#if ndef  _COMPONENT_H 
# include  " component . h" 
#endif 

#ifndef  _TEXT_OBJECT JI 
#include  "text-object  .h" 
#endif 

#ifndef  _TREENODE_H 
# include  "treenode.h" 
tendif 

#ilndef  _DDBDEFINES_H 
#include  "ddbdef ines.h" 
#endif 

// End  Interface  Dependencies 

extern  char  *dirNamePtr; 


TREENODE::TREENODE(char  *name,  TREENODE*  future_parent) 

{ 

tree_node_name  =  new  char[strlen(name)+l]; 

strcpy(tree_node  Jiame,name); 
level=0; 
timestamp  =  0; 
ParentNode  =future_parent; 
} 

TREENODE::TREENODE(TREENODE  *inc_data,  TREENODE*  future_parent) 

{ 

tree_node_name  =  new  char[strlen(inc_data— ->getname())+l]; 
strcpy  (tree  .node  _name,inc_data— ♦getnameQ); 
if  ((future_parent)^NULL) 

level=future_parent— +getlevel()+l; 
else 

level=l; 
timestamp  =  inc.data— ►get.long.timeO; 
ParentNode  =  future  .parent; 
} 

void  TREENODE:  :updatetimestamp(long  time) 

{ 
timestamp=time; 
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} 

char  *TREENODE::getname() 

{ 
return  tree_node_name; 

} 

void  TREENODE::insertChildNode(TREENODE  *new_child) 

{ 

ChildrenList.insert(new_child); 

} 

TREENODEJinkedlistTREENODE::getChildren() 

{ 

return  ChildrenList; 

} 

TREENODE  *TREENODE::getParentNode() 

{ 

return  ParentNode; 

} 

char  *TREENODE::get_asc_time() 

{ 

return  ctime(&:timestamp); 

} 

int  TREENODE::getlevel() 

{ 

return  level; 

} 

long  TREENODE: :getJong.time() 

{ 
return  timestamp; 

} 

void  TREEN0DE::listj3ubtree() 

{ 

slistiterator  ChildrenPtr(ChildrenList); 

TREENODE  *tnode; 

for  (;;)  //  recursive  call  inside  infinite  for  loop 

{ 

tnode  =  ChildrenPtr(); 
if  (tnode^NULL) 

{ 

char  *name=tnode— >getname(); 

int  level  =  tnode— »getlevel(); 

char  *asctime  =  tnode— ►get_asc_time(); 

cout  •<  level  <C  " — >"  <C  name  ■<  "time:      "•Casctime; 

tnode— »^list^ubtree();  //preorder 
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} 

else 

break;  //  breaks  when  end  of  list  reached. 
} 
} 

void  TREENODE::checkin_subtree(V_OBJECT  *new .parent) 

{ 

slist -iterator  ChildrenPtr(ChildrenList); 

TREENODE  *tnode; 

for  (;;)  //  recursive  call  inside  infinite  for  loop 

{ 

tnode  =  ChildrenPtr(); 
if(tnode^NULL) 

{ 

V.OBJECT  *parent; 

char  *name  =  tnode— ►getname(); 

cerr  <  MCHECKIN~>   "  <  name  <  M\n"; 

parent  =  tnode— ►checkin_node(new  .parent); 

tnode— +checkin.subtree(parent);  / / preorder 

} 
else 

break;  //  breaks  when  end  of  list  reached. 
} 
} 

V.OBJECT  *TREENODE::checkin_node(V_OBJECT  *future_parent) 

{ 

ifstream  psfile; 
ifstream  graphfile; 
ifstream  impfile; 
ifstream  specfile; 
ifstream  sourcefile; 

Boolean  create jiew.vobject  =  FALSE; 

char  *psfilename; 

char  *graphfilename; 

char  *impfilename; 

char  *specfilename; 

char  *sourcefilename; 

char  *COMPONENT_psfilename; 
char  *COMPONENT_graphfilename; 
char  *COMPONENT_impfilename; 
char  *COMPONENTjspecfilename; 
char  *COMPONENTjsourcefilename; 

COMPONENT_psfilename  =  new  char[strlen(treejiode_name)+LENGTH _PS _EXT+2]; 
COMPONENT^graphfilename  =  new  char[strlen(treejiode_name)+LENGTH_GRAPH _EXT+2]; 
COMPONENT Jmpfilename  =  new  char[strlen(tree_node_name)+LENGTHJMP_EXT+2]; 
COMPONENT-specfilename  =  new  char[strlen(tree_nodejiame)+LENGTH JSPEC _EXT+2]; 
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COMPONENT-sourcefilename  =  new  char[strlen(tree_node  _name)+LENGTH  .SOURCE  _EXT+2]; 

psfilename  =  new  char[strlen(dirNamePtr)  +strlen(tree_node_name)+LENGTH_PS_EXT+2]; 
graphfilename  =  new  char[strlen(dirNamePtr)+strlen(tree_node_name)+LENGTH_GRAPH_EXT+2]; 
impfilename  =  new  char[strlen(dirNamePtr)+strlen(tree_node_name)+LENGTHJMP_EXT+2]; 
specfilename  =  new  char[strlen(dirNamePtr)+strlen(tree_node_name)+LENGTH^PEC_EXT-f  2]; 
sourcefilename  =  new  char[strlen(dirNamePtr)+strlen(treejiodejiame)+LENGTH_S0URCE_EXT+2]; 

strcpy  (psfilename, dirNamePtr); 
strcpy(graphfilename,dirNamePtr); 
strcpy(specfilename, dirNamePtr); 
strcpy(impfilename, dirNamePtr); 
strcpy(sourcefilename, dirNamePtr); 

strcat(psfilename,"/"); 

strcat(graphfilename,"/"); 

strcat(specfilename,"/"); 

strcat(impfilename,"/"); 

strcat(sourcefilename,"/"); 

strcat(psfilename,tree_node_name); 
strcat(graphfilename,tree_node_name); 
strcat(specfilename, tree  Jiode  .name); 
strcat(impfilename,tree_node_name); 
strcat(sourcefilename,tree_node_name); 

strcat(psfilename,"  .ps"); 
strcat(graphfilename," .  graph"); 
strcat(impfilename,"  .  imp .  psdl"); 
strcat(specfilename,"  .spec. psdl"); 
strcat(sourcefilename,"  .a"); 

strcpy(COMPONENT.psfilename,tree  .node  .name); 
strcpy  (COMPON  ENT  graphfilename, tree  .node  Jiame) ; 
strcpy(COMPONENT  specfilename, tree  Jiode  .name) ; 
strcpy(COMPONENT  impfilename, tree  _node_name); 
strcpy(COMPONENT sourcefilename, tree  Jiode  Jiame); 

strcat(COMPONENT_psfilename,M.ps"); 
strcat(COMPONENT.graphfilename,".  graph"); 
strcat(COMPONENTJmpfilename," .  imp. psdl"); 
strcat(COMPONENTspecfilename,".  spec,  psdl"); 
strcat(COMPONENTsourcefilename," .  a"); 

psfile.open(psfilename); 
graphfile.open(graphfilename) ; 
impfile.open(impfilename); 
specfile.open(specfilename); 
sourcefile.open(sourcefilename); 
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THREAD  *threadPtr=  (THREAD  *)0; 
V.OBJECT  *vobjectPtr  =(VDBJECT  *)0; 
V.OBJECT  *new_vobject  =  (V.OBJECT  *)0; 
long  vobjectJocktime  =  0; 
int  versionNum  =  1; 

if  (threadPtr  =((THREAD  *)OC  Jookup(tree_node_name))) 

{ 

vobjectPtr  =  threadPtr  — >current();  //  return  current  vobject 
vobjectJocktime  =  vobjectPtr  — fgetLockTime();  //  return  locktime 
Boolean  last_operation_was_checkin  =  vobjectPtr— ►getJast.operationO; 
if  (vobjectJocktime  <  timestamp) 

{  a 

if  (last  joperation_was_checkin) 

{ 

cout  <C  "Last  operation  was  VAA    . . .     Preventing  duplicates\n"; 
return  vobjectPtr; 

} 
else 

{ 

versionNum  =  vobjectPtr  — ►  getVersionNumber()  +  1; 
create  _new  .vobject  =  TRUE; 
} 
} 
} 
else 

{ 

threadPtr  =  new  THREAD(tree_nodejiame); 

create  Jiew  .vobject  =  TRUE; 
} 

if  (vobjectPtr) 

{ 

vobjectPtr— >releaseLock(); 

vobjectPtr— »TesetLastOpTrue(); 

vobjectPtr— >resetVisitedFlag();  //  Just  for  good  measure,  before  pass  2 

vobjectPtr— ►putObject(); 
} 

if  (create _new .vobject)  //  if  compare  says  I  need  a  new 
{ 

new_vobject=  new  V.OBJECT(versionNum); 
new  .vobject —»-connect  .vobject  .to  .thread(threadPtr); 
COMPONENT  *new.COMPONENT=new  COMPONENT(); 
if  (psfile) 

{ 

TEXT-OBJECT  *new_psfile_object=  new  TEXTDBJECT(); 

new_psfile.object— ►append(COMPONENT_psfilename,psfile); 

new  .COMPONENT  ->addTextObject(new  psfile  object); 
} 
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if  (graphfile) 

{ 

TEXT.OBJECT  *  new  .graphfile  jobject=new  TEXT_OBJECT(); 

new  graphfile  jobject— ►append(COMPONENT_graphfilename,graphfile); 

new  .COMPONENT  ^addTextObject(new  graphfile  jobject); 

} 
if  (specfile) 

{ 
TEXT-OBJECT  *  newjspecfile.object=new  TEXTDBJECT(); 
new  specfile  jobject— ►append(COMPONENT_specfilename,specfile); 
new  .COMPONENT  —  addTextObject(new  specfile  object); 

} 

if  (impfile) 

{ 

TEXT.OBJECT  *  new impfile_object=new  TEXT.OBJECT(); 

new  impfile.object— ♦append(COMPONENT_impfilename,  impfile); 

new.COMPONENT  —  addTextObject(new  jmpfile.object); 
} 

if  (sourcefile) 

{ 

TEXT.OBJECT  *new sourcefile  .object=new  TEXTDBJECT(); 

new  sourcefile  .object— >append(COMPONENT.sourcefilename,sourcefile); 

new.COMPONENT  ->addTextObject(newjsourcefile_object); 

} 

new  _vobject-^addCOMPONENTNode(new  .COMPONENT); 
threadPtr— ►add-object(new_vobject); 

if  (future .parent) 

{  > 

if  (vobjectPtr) 

future_parent— ►deleteChildNode(vobjectPtr); 
future_parent— ►addChildNode(new.vobject); 
future_parent— ►putObjectO; 

} 
} 
else 

{  m 

if  (future_parent) 

{ 
future_parent— ►addChildNode(vobjectPtr); 
future-parent— ►putObjectO; 
} 
} 
psfile.close(); 
graphfile.  close(); 
impfile. close(); 
specfile.  closeQ; 
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sourcefile.close(); 

if  (create_new_vobject) 

{ 

new.vobject— ►setNodeName(getname()); 

new_vobject—>setParent(future  .parent); 

return  new.vobject;  //  return  new  version  of  vobject  as  parent 

} 
else 

{ 

vobjectPtr— +setParent(future  .parent); 

return  vobjectPtr;  //  return  old  version  of  vobject  as  parent 

> 

} 
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//  File  Header 

//•••• : 

//.Filename :  versioned.object.h 

//.SCCS  ID :  1.3 

1/ .Release  No....:  1 

I/. Date :  9/16/91 

1 1  .Author ;  Garry  Lewis 

II :  Drew  Dwyer 

I  /.Compiler :  Glockenspiel  C++  2.1 

II : 

//  End  header  comments 


tifndef  _VERSIONED_OBJECT_H 
#def  ine  _VERSIONED_OBJECT_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in  object  file 

static  char  versioned_object_h_SccsId[)  =  "«(#)versioned_object  .h  1 .3\t9/16/91"; 

#include  <Object.h> 
#include  <List.h> 
#include  <Dictionary .h> 
#include  <Reference.h> 
#include "RelerenceMacros.h" 
# include  < stream. hxx> 

extern  "C — " 

{ 

#include  <sys/time.h> 

#include  <sys/types.h> 

#include  <string.h> 

} 

Jfifndef  _THREAD_H 
# include  "thread.h" 
#endif 

#ifndef  _COMPONENT.H 
# include  "  component .  h" 
#endif 

#def ine  DEFAULT.VER  1 

TypeCheckReference(DescReference,  Reference,  TEXT  .OBJECT); 
TypeCheckReference(COMPONENTObjReference,  Reference,  COMPONENT); 
TypeCheckReference(ChildVObj Reference,  Reference,  List); 
TypeCheckReference(ThreadObj Reference,  Reference,  THREAD); 

class  V. OBJECT  :  public  Object 

{ 

TypeCheckReference(ParentObjReference,  Reference,  V .OBJECT); 
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private: 

int  theVersionNumber; 

time_t  creationDate; 

time_t  lockTime; 

char  *node_name; 

char  *creator; 

char  *  worker; 

Boolean  visited;  //  for  navigation  through  tree  structure 

Boolean  last_op_checkin;  //  guards  against  double  checkin 

DescReference  theDescriptionPtr; 

ThreadObj Reference  theThreadPtr; 

COMPONENTObjReference  theCOMPONENTPtr; 

ChildVObjReference  theChildPtr; 

ParentObj Reference  theParentPtr; 

public: 

V_OBJECT(APL  *); 

V.OBJECT(int=  DEFAULT  _VER); 

void  Destroy(Boolean  aborted=FALSE); 

Type  *getDirectType(); 

void  connect_vobject_to_thread(THREAD  *); 

void  setParent(V_OBJECT  *); 

void  setNodeName(char  *); 

char  *getNodeName(); 

void  getVObjNameQ; 

char  *getName(); 

void  resetVisitedFlagQ; 

void  setVisitedFlag(); 

Boolean  getVisitedFlag(); 

void  getVObjComponentsName(); 

void  display VersionNumber(); 

int  getVersionNumber(); 

void  dumpVObjSummary(); 

time.t  setCreationDate(); 

time_t  getCreationDate(); 

void  setLock(); 

char  *getWorker(); 

char  *getCreator(); 

void  setWorker(); 

void  resetLastOpTrue(); 

void  resetLastOpFalse(); 

Boolean  getJastjoperation();  //  returns  true  if  last  op  was  checkin 

int  releaseLock(); 

time.t  getLockTime(); 

void  getDescription(); 

void  listChildren(); 

void  longlistOperatorNames(); 

void  HstOperatorNames(); 


287 


void  updateDescription(char  *,  ifstream  &); 

void  addCOMPONENTNode(COMPONENT  *); 

void  deleteChildNode(V.OBJECT  *); 

void  addChildNode(V_OBJECT  *); 

V.OBJECT  *getParent(); 

COMPONENT  *getCOMPONENT(); 

void  dumpSubtree(char  *); 

void  release LockSubtree(); 

List  *getChildren(); 

Boolean  getChildPtr(); 

Boolean  checkoutCOMPONENTNode(char  *); 

~V_OBJECT()  {  Destroy(FALSE);  }; 

}; 

//  Description 

//  V.OBJECT 
II  V.OBJECT 

II 

//  Constructors  -  builds  a  persistent  object  in  the  Ontos 

If  database. 

II 

If  Destroy 

II 

II  Required  by  Ontos.  Every  persistent  object  must  have  a 

II  destroy  function. 

II 

II  getDirectType 

II 

II  Returns  an  Ontos  Type 

II 

II  connect.vobject.to. thread 

II 

If  Connects  a  vobject  to  a  thread  bearing  it's  name. 

II 

II  seiParent 

II 

If  Used  to  establish  links  (Transparent  References  as  Ontos 

II  calls  them)  in  the  Design  Database  reflecting  the 

II  decomposition  of  CAPS  operators/types. 

II 

II  setNodeName 

II 

II  NodeName  is  maintained  as  a  separate  character  string  field. 

II 

II  getNodeName 

II 

II  get  the  shorter  NodeName 

II 

II  getVObjName 

II 

II  Displays  the  versioned  object's  name  to  stdoui 
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// 

//  getName 

II 

II  returns  the  character  string  pointer  of  the  Operator  Name 

II 

II  resetVisttedFlag 

II 

II  resets  visited  to  FALSE 

II 

II  setVisitedFlag 

II 

II  sets  visited  to  TRUE 

II 

II  getVisitedFlag 

II 

II  returns  the  value  of  visited  (Boolean) 

II 

II  getVObjComponentsName 

II 

If  display  the  different  components  in  the  Operator 

II 

II  display  VersionNumber 

II 

II  Display  the  version  number  of  the  V. OBJECT  to  stdout 

II 

II  getVersionN  umber 

II 

If  return  the  int  versionNumber 

II 

II  dumpVObjSummary 

II 

II  dump  predetermined  attribute  values  to  the  stdout/stderr 

II 

II  setCreationDate 

II 

II  gets  the  system  time  and  stores  it  in  CreationDate 

II 

If  getCreationDate 

II 

II  Displays  the  creation  date  as  a  26  character  ascit  text 

II  string  of  the  date  and  time 

II 

II  setLock 

II 

II  sets  the  lock  to  the  system  time 

II 

II  getWorker 

II 

II  returns  the  character  string  containing  the  workers  name 

II 

II  getCreator 
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// 

//  returns  the  character  string  containing  the  V.OBJECT 
If  creators  name 

II 

If  set  Worker 

II 

II  gets  the  UNIX  UserPtr  variable  and  stores  the  value  of  that 

II  variable  into  worker 

II 

II  resetLastOpTrue 

II 

II  Tells  the  system  that  the  last  operation  on  that  V.OBJECT 

II  was  a  checkin.  Prevents  duplicate  checkins  from  creating 

II  new  versioned  objects  on  each  checkin 

II 

II  resetLastOp False 

II 

II  resets  the  last  operation  immediately  following  checkin 

II 

II  get.last.operation 

II 

II  returns  a  Boolean  TRUE  if  last  operation  was  an  add 

II 

II  releaseLock 

II 

II  sets  the  lockTime  back  to  0  (epoch  time)  Sometime  in  1969. 

II 

II  getLockTime 

II 

II  return  the  lockTime  as  a  time.t  (long)  structure 

II 

II  geiDescription 

II 

If  Display  the  V.OBJECT  description  (if  one  exists) 

II 

II  UstChildren 

II 

II  list  V.OBJECT's  chilren 

II 

II  longlistOperatorN ames 

II 

II  list  V.OBJECT's  children 

II 

II  HstOperatorNam.es 

II 

II  gives  the  explicit  name  of  the  operator  (to  include 

II  path  information  from  the  root  V.OBJECT 

II 

II  updateDescripiion 

II 

II  updates  the  versioned.objects  description. 
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// 

//  addCOMPONENTNode 

II 

II  adds  an  COMPONENT  object  to  thts  V.OBJECT  using  the  Onios 

II  binding  mechanism 

II 

II  deleteChildNodt 

II 

II  removes  an  operator  from  the  children  list  of  the 

II  current  V.OBJECT 

II 

II  addChildNode 

II 

II  adds  an  operator  to  the  children  list  of  the  V.OBJECT 

II 

II  getParent 

II 

II  returns  the  parent  V.OBJECT 

II 

II  getCOMPONENT 

II 

If  returns  an  COMPONENT  pointer  if  one  is  contained  in  this 

II  V.OBJECT 

II 

II  dumpSubtree 

II 

II  attempts  to  rebuild  files  from  versioned  objects  onto 
II  the  UNIX  subdirectory  referenced  by  the  UNIX  variable 
II  PROTOTYPE 

II 

II  release LockSubtree 

II 

II  resets  that  node  and  every  node  under  it  to  zero 

II  epoch  time  (sometime  in  1969) 

II 

II  getChildren 

II 

II  returns  a  list  of  the  children  of  the  current  V.OBJECT 

II 

II  getChildPtr 

II 

II  returns  a  Boolean  TRUE  if  the  Cardinality  of  the  list 

II  referenced  by  the  theChildPtr  is  >  zero 

II 

1/  checkoutCOMPONENTNode 

II 

If  attempts  to  rebuild  the  .ps,  .graph,  .imp.psdl,  .spec.psdl 
II  and  .a  files  of  an  operator/type  stored  in  the  Design 
II  Database 

II 

II  End 
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#endil 
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//  File  Header 

//•••• : 

//.Filename :  versioned.object.cxx 

//.SCCS  ID :  1.3 

/ / .Release  No....:  1 

//.Date :  9/16/91 

/ / .Author ;  Garry  Lewis 

// :  Drew  Dwyer 

//.Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in  object  file 

static  char  versioned_object_cxx_SccsId[]  =  "C(#)versioned_object .cxx  1 .3\t9/16/91"; 


//  Contents 

// 

//  V.OBJECTr.V.OBJECT 

1/  V.OBJECTr.V.OBJECT 

II  V.OBJECTr.Destroy 

II  V.OBJECTr.geiDirectType 

II  V-OBJECT::connect-vobject-to.ihread 

II  V.OBJECTr.setParent 

II  V.OBJECT::setNodeName 

II  V.OBJECT::getNodeName 

II  V.OBJECT::getVObjName 

II  V.OBJECT::getName 

II  V-OBJECT::reset  VisitedFlag 

II  V-OBJECT::setVisitedFlag 

II  V.OBJECTr.get  VisitedFlag 

If  V.OBJECTr.get  VObjComponentsName 

II  V .OBJECT ..display VersionNumber 

II  V.OBJECTr.get  VersionNumber 

II  V.OBJECTrdumpVObjSummary 

II  V.OBJECTrsetCreationDate 

II  V.OBJECTr.getCreationDate 

II  V.OBJECTrsetLock 

II  V.OBJECTrgetWorker 

II  V.OBJECTr.getCreator 

II  V.OBJECTrsetWorker 

If  V.OBJECTrresetLastOpTrue 

II  V.OBJECTrresetLastOpFalse 

If  V.OBJECTrget.last.operation 

II  V.OBJECTr.releaseLock 

II  V.OBJECTrgetLockTime 

II  V.OBJECTr.getDescription 

II  V.OBJECTrlistChildren 

II  V.OBJECTrlonglistOptratorNames 

II  V.OBJECTrlistOperatorNames 

II  V.OBJECTr.updateDescription 
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//  V.OBJECTr.addCOMPONENTNode 

II  V.OBJECTr.deleteChildNode 

II  V.OBJECT::addChildNode 

II  V.OBJECT::getParent 

II  V.OBJECT::getCOMPONENT 

II  V.OBJECTr.dumpSubtree 

II  V.OBJECT::releaseLockSubtree 

II  V.OBJECT::getChildren 

II  V.OBJECTr.getChildPtr 

II  V.OBJECT::chtckoutCOMPONENTNode 

II 

If  Description 

II 

II  methods  for  manipulating  versioned  objects 

II 

II  End 

//  Interface  Requirements 


#include  <GlobalEntities.h> 
#include  <Directory .h> 

#ifndef  _VERSIONED_OBJECT_H 
#include  "versioned_object  .h" 
#endii 

#ifndef  _TRACER_H 
#include  " tracer. h" 
#endif 

#iindef  _DDBDEFINES.H 
#include  "ddbdef ines.h" 
#endif 

//  Constructor  // 

If  End  Interface  Requirements 


extern  Type  *V_OBJECT.OType; 
extern  userPtr; 


V_OBJECT::V_OBJECT(APL  *theAPL)  :  Object(theAPL) 

//  Summary 

// 

//  This  is  an  activation  constructor  required  by  ONTOS. 

II  ONTOS  calls  the  activation  constructor  anytime  an  object 

II  is  brought  into  memory.  Note  the  constructor  passes 

II  theAPL  to  the  base  class  APL  constructor. 
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// 

//  Parameter 

II 

II  theAPL 

II 

II  A  pointer  to  an  A  PL  (for  Activation  Parameter  List)  a 

II  structure. 

{ 
II  empty  by  design 

}; 

//  End 

//  Constructor  // 
VDBJECT::V.OBJECT(int  versionNum) 

//  Summary 

// 

//  Parameter 

II 

II  Functional  Description 

II 
{ 

initDirectType(V.OBJECT.OType); 

theVersionNumber  =  versionNum; 

creationDate  =  setCreationDate(); 

lockTime  =  0; 

last_op_checkin  =  TRUE; 

visited  =  FALSE; 

creator  =  new  char  [strlen(userPtr)+l]; 

strcpy(creator,userPtr); 

worker  =  (char  *)0; 

node_name  =  (char  *)0; 

theDescriptionPtr.initToNull(); 

theCOMPONENTPtr.initToNull(); 

theThreadPtr.initToNull(); 

theParentPtr.initToNull(); 

List  *newChildList  =  new  List(V.OBJECT_OType); 

newChildList  — ►  putObject(); 

theChildPtr.Reset(newChildList,  this); 

putObject(); 

}; 

//  End 

//  Member  Function  (in  lieu  of  destructor)// 
void  V  .OBJECT::  Destroy  (Boolean  aborted) 
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//  Summary 

// 

//  This  one  is  semi  tricky.  Destroy  redefined  the  Destroy 

//  function  inherited  from  the  class  CleanupObj.  Destroy() 

II  is  used  to  delete  CleanupObj  objects  and  those  of  all  its 

II  derived  classes.  In  defining  any  class  that  is  directly 

II  or  indirectly  derived  from  CleanupObj,  provide  the 

II  function  Destroy  (Boolean  aborted)  in  place  of  a  destructor 

II  if  there  is  any  special  processing  required  when  the 

II  object's  memory  is  deallocated. 

II 

II  Parameter 

II 

II  aborted 

II 

II  If  Destroy()  is  called  as  a  result  of  an  abort,  aborted 

II  is  set  to  TRUE;  if  it  is  called  to  delete  the  object  for 

II  other  reasons,  aborted  is  set  to  False. 

II 

II  Functional  Description 

II 

If  CleanupObj  in  effect  provides  an  audit  trail  of  the 
II  creation  of  all  stack-based  instances  of  its  derived 
II  classes,  so  that  they  can  be  cleanly  deleted  tn  the 
If  case  of  an  abort  during  exception  handling.   Hence 
II  the  Destroy  function. 

{ 

Object::  Destroy  (aborted); 

}; 


//  End 

//  Member  Function  // 

Type*  V_OBJECT::getDirectType() 

{ 

return  V_OBJECT.OType; 

} 

//  Member  Function  // 

void  V_OBJECT::connect_vobjectJtoJ,hread(THREAD  *threadPtr) 

{ 

theThreadPtr.Reset(threadPtr,this); 

putObject(); 
} 

void  V_OBJECT::setParent(V_OBJECT  *parent) 

{ 

theParentPtr.Reset(parent,this); 
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putObject(); 
} 

void  V-OBJECT::setNodeName(char  *tree_node_name) 

{ 

char  *token  =  (char  *)0; 

token  =  strrchr(tree  Jiode  jiame,'.'); 

if (token) 

{ 

node_name  =  new  char[strlen(token)+l]; 
strcpy(node_name, token);  //  token  in  the  subtree 
node_name++;  //  discard  period  (.) 

} 
else 

{ 

node_name  =  new  char  [strlen(tree_node_name)+l]; 
strcpy(node_name,tree_node_name);  //  must  be  root  root. 

> 

putObject(); 

} 

char  *V_OBJECT::getNodeName() 

{ 

return  node_name; 

} 

char  *  V.OBJECT::getName() 

{ 

char  *name; 
Directory  *directory; 


if(!this) 

{ 

cerr  <C  "<ERR0R:    cannot  get  the  name  of  a  null  V_OBJECT>\n"; 
return  NULL; 

} 
if  (HheThreadPtr) 

{ 

cerr  <C  "<ERROR:    cannot  display  the  name  of   a  null  thread>\n"; 
return  NULL; 

} 
else 

{ 

THREAD  *myThreadPtr  =  (THREAD*)  theThreadPtr.Binding(this); 

name  =  myThreadPtr  — ►  Name(); 

OC_getNameComponents(name,  &;directory,  fcname); 

return  name; 
} 
} 
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//  Member  Function  // 

void  V_OBJECT::getVObjName() 

{ 

char  *name; 
Directory  *directory; 

if(!this) 

{ 

cerr  <C  "<ERROR:    cannot  get  the  name  of  a  null  V_OBJECT>\n"; 
return; 

} 
if  (ItheThreadPtr) 

{ 

cerr  <C  "<ERROR:  cannot  display  the  name  of  a  null  thread>\n"; 
return; 

} 
else 

{ 

THREAD  *myThreadPtr  =  (THREAD*)  theThreadPtr.Binding(this); 

name  =  myThreadPtr  — ♦  Name(); 

OC_getNameComponents(name,  ^directory,  &name); 

cout  •<  name  •<  "\n"; 
} 
} 

//  Member  Function  // 

void  V_OBJECT::getVObjComponentsName() 
{  if(!this) 

{ 

cerr  <"< ERROR:    cannot  get  the  names  of   a  null  V_0BJECT>\n"; 
return; 

} 
if(!theCOMPONENTPtr) 

{ 

cerr  <C  "<This  v.object  does  not  have  an  COMPONENT  component >\n"; 
return; 

} 
else 

{ 

COMPONENT  *myCOMPONENTPtr  =  (COMPONENT*)  theCOMPONENTPtr.Binding(this); 

myCOMPONENTPtr  -»  getComponentNames(); 

} 

} 

//  Member  Function  // 

void  V_OBJECT::displayVersionNumber() 

//  Summary 
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// 

//  This  function  displays  the  version  number  of  an  object. 

{ 

cout  <C  the  Version  Number  •<  "\n"; 

}; 

int  V_OBJECT::getVersionNumber() 

{ 

return  theVersionNumber; 

} 

//  End 


//  Member  Function  // 

void  V_OBJECT::dumpVObjSummary() 

{ 
//  display  VersionN  umber  (); 

cerr  <  "Date:      "; 

cout  <C  ctime(&;creationDate); 

cerr  -C  "Creator:      "; 

cout  <  getCreator()  <  "\n"; 

cerr  <C  "Checked  out  out  by  "; 

if  (worker) 

{ 

cout  <C  worker  <C  "\n"; 

} 
else 

cout  <  "NOHE  \n"; 
cerr  <C  "LockTime:      "; 
if  (!lockTime==0) 

cout  <C  ctime(&;lockTime); 
else 

cout  <  "HOHE\n\n"; 
cerr  <  "\n" 

<C  "Description\n" 

<  "================================\n\n"- 

getDescription() ; 
} 

//Member  Function  // 

time.t  V_OBJECT::setCreationDate() 

{ 

time.t  mytloc=0; 

time.t  theTime; 

return  theTime  =  time(mytloc); 
} 


299 


// Member  Function  // 

void  V_OBJECT::setLock() 

{ 

lockTime  =  setCreationDateQ; 

} 

//Member  function// 

char  *V_OBJECT::getWorker() 

{ 

return  worker; 

} 

//Member  function// 

char  *V_OBJECT::getCreator() 

{ 

return  creator; 

} 

//Member  function// 

void  V_OBJECT::setWorker() 

{ 

char  *temp_worker  =  new  char  [strlen(userPtr)+l]; 

strcpy(temp_worker,userPtr); 

if  (worker) 

{ 

cerr  <  "resetworker  — >  from  "<  getWorker()  <  "  to   "<  temp.worker  <C"\n"; 
delete  worker; 

} 
else 

cerr  <C  "setsorker  — >  to  "  <C  temp.worker  <C"\n"; 

worker  =  new  char[strlen(temp_worker)-|-l]; 

strcpy(  worker, temp.worker); 


/Member  Function  // 
void  V_OBJECT::resetVisitedFlag() 
visited  =  FALSE; 

void  V.OBJECT::setVisitedFlag() 
visited  =  TRUE; 

Boolean  V_OBJECT::getVisitedFlag() 
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return  visited; 

/Member  Function  // 
void  V_OBJECT::resetLastOpTrue() 
last_op.checkin  =  TRUE; 

void  V_OBJECT::resetLastOpFalse() 
lastjop.checkin  =  FALSE; 

/Member  Function  // 
Boolean  V_OBJECT::getJast_operation() 
return  last.op.checkin; 

/Member  Function  // 
int  V_OBJECT::releaseLock() 

if  (!  worker) 

{ 

last_op.checkin  =  TRUE; 

lockTime  =  0; 

return  SUCCESS; 
} 

if  (strcmp(userPtr,getWorker())==0) 

{ 

last.op_checkin  =  TRUE; 
lockTime  =  0; 
delete  worker; 
worker  =  (char  *)0; 
return  SUCCESS; 

} 
else 

{ 

cerr  <  "<ERR0R:    Only   "  <  getWorker()  <  "  May  unlock  this  object!  .  .  .Aborting>\n"; 

return  FAILED; 
} 

} 

//Member  Function  // 
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timet  V_OBJECT::getCreationDate() 

{ 

return  creationDate; 

} 

//  Member  Function  // 

time_t  V_OBJECT::getLockTime() 

{ 

return  lockTime; 

} 

//  Member  Function  // 

void  V_OBJECT::getDescription() 


//  Summary — 

//  r 

II  This  function  displays  the  description  of  an  object 

II 

{ 

if(!this) 

{ 

cout  <  "<ERROR:  cannot  get  the  description  of  a  null  V_0BJECT>\n"; 

return; 

} 
if  (ItheDescriptionPtr) 

{ 

cerr  <C  "<This  v_object  does  not  have  a  description>\n"; 
return; 

} 
else 

{ 

TEXT.OBJECT  *myTextObjectPtr  = 

(TEXT-OBJECT*)  theDescriptionPtr.Binding(this); 
myTextObjectPtr  — >text(cout); 
} 
} 

//  Member  Function  // 

void  V_OBJECT::updateDescription(char  *fileName,  ifstreamfc  input_file_stream) 

{ 

if(!this) 

{ 

cerr  <  "<ERROR:  cannot  update  the  description  of  a  null  V_OBJECT>\n"; 

return; 
} 
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else 

{ 
if  (strcmp(userPtr,getCreator())==0) 

{  m 

if(!theDescriptionPtr) 

{ 

TEXT_OBJECT  *  textObjectPtr  =  new  TEXT_OBJECT(); 
textObjectPtr  — ►  append(fileName,  inputJile-stream); 
textObjectPtr  — +putObject(); 
theDescriptionPtr.Reset(textObjectPtr,  this); 

} 
else 

{ 
TEXT-OBJECT  *textObjectPtr  = 

(TEXT-OBJECT*)  theDescriptionPtr.Binding(this); 
textObjectPtr  — ►  resetTheText(); 
textObjectPtr  — ►  append(fileName,  input_file.stream); 

} 
} 
else 

cerr  <C  "<ERR0R:    only  "  ■<  getCreator()  •<  "  may  update  description.     Aborting.  .  .>\n"; 

} 
putObject(); 

} 

//  Member  Function  // 

void  V_OBJECT::addCOMPONENTNode(COMPONENT  *myCOMPONENTPtr) 

{ 

if(!this) 

{ 

cerr  <  "<ERROR:  cannot  set  the  COMPONENT  node  of  a  null  V_0BJECT\n"; 
return; 

} 
if  (!myCOMPONENTPtr) 

{ 

cerr  <  "<ERR0R:    cannot  give  to  a  V_0BJECT  a  null  C0MP0NENT>\n"; 

return; 

} 
theCOMPONENTPtr.Reset(myCOMPONENTPtr,  this); 
putObject(); 
} 

//  Member  Function  // 

void  V.OBJECT::deleteChildNode(V_OBJECT  *myV.ObjPtr) 

{ 

List  *child_nodes  =  (List  *)theChildPtr.Binding(this); 

if(!this) 
{ 
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cerr  <  "<ERROR:  cannot  delete  the  child  node  of  a  null  V_OBJECT\n"; 
return; 

} 
if  (!child_nodes) 

{ 

cerr  <  "<ERROR:  cannot  remove  a  BULL  child>\n"; 

return; 

} 
long  location  =0; 
if  (child_nodes— ►isMember(myV-ObjPtr)) 

{ 

location  =  child_nodes— ►Index(myV-ObjPtr); 

child_nodes— ►Remove(location); 

child_nodes— ►putObject(); 

} 
} 

//  Member  Function  // 

void  V_OBJECT::addChildNode(V_OBJECT  *myV.ObjPtr) 

{ 

List  *child_nodes  =  (List  *)theChildPtr.Binding(this); 

if(!this) 

{ 

cerr  <  "<ERR0R:  cannot  set  the  child  node  of  a  null  V_0BJECT\n"; 

return; 

} 
if  (!child_nodes) 

{ 

cerr  <  "<ERR0R:    cannot  give  to  a  VJDBJECT  a  null  child>\n"; 

return; 

} 
child_nodes— ►Insert(myV-ObjPtr); 
child_nodes— ►putObjectQ; 


/Member  Function  // 
V .OBJECT  *V_OBJECT::getParent() 

return  (V.OBJECT  *)(Entity  *)  theParentPtr.Binding(this); 


COMPONENT  *V_OBJECT::getCOMPONENT() 

return  (COMPONENT  *)  (Entity  *)  theCOMPONENTPtr.Binding(this); 

void  V.OBJECT::listChildren() 
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if  (!this) 

{ 

cerr  <  "<ERROR:  can  not  dump  children  of  a  null  V_0BJECT!  >\n"; 
return; 

} 

if(!theChildPtr) 

{ 

cerr -C  "<ERROR:    can  not  print  children  of  a  null  childPtr!>\n"; 
return; 

} 
else 

{ 

List  *child_nodes  =  (List  *)  theChildPtr.Binding(this); 
Listlterator  ChildrenPtr(child_nodes); 
V.OBJECT  *cnode; 

while(ChildrenPtr.moreData()) 

{ 

cnode  =  (V_OBJECT  *)  (Entity  *)  ChildrenPtr(); 

cerr  «C  "Operator:      "; 

cout  -C  cnode— ►getNodeName(); 

//************ 

//  following  for  loop  provides  spacing... 
II  *********** 

int  i=0; 

for  (i=0;i<(PRINT.VERSION.LOCATION-strlen(cnode^getNodeName()));i++) 

cout  <  "  "; 
cerr  -C  "Version:      "; 
cout  <C  cnode— ►getVersionNumber(); 
cout  <^C  "\n"; 

time.t  locktime  =  cnode— >■  get LockTime(); 
cerr  <  "Locktime   is:      "  <  ctime(&locktime)  <  "\n"; 

} 
return; 

} 
} 

void  V_OBJECT::longlistOperatorNames() 
{ 

if(!this) 

{ 

cerr  <  "<ERROR:    can  not  dump  operators  of  a  null  VjDBJECT!  >\n"; 

return; 
} 

if(!theChildPtr) 

{ 

cerr  <  "<ERROR:  can  not  print  list  of  a  null  childPtr !  >\n"; 
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return; 

} 
else 

{ 

List  *child_nodes  =  (List  *)  theChildPtr.Binding(this); 
Listlterator  ChildrenPtr(child-nodes); 
V_OBJECT  *cnode; 
while(ChildrenPtr.moreData()) 

{ 

cnode  =  (V .OBJECT  *)  (Entity  *)  ChildrenPtr(); 
//  if  (cnode->gelChildPtr()) 

Hi 

//  cnode->  longlistOperatorN  ames() ; 

//} 

cerr  <  "Operator:      "; 

cout  <C  cnode— ►getNodeName(); 

//**#********* 

//  following  for  loop  provides  spacing... 

II  *********** 

int  i=0; 

for  (i=0;i<(PRINT_VERSION_LOCATION-strlen(cnode^getNodeName()));i++) 

cout  <  "   "; 
cerr  <C  "\nVersion:      "; 
cout  <C  cnode— ►getVersionNumber(); 
cout  <  "\n"; 

time_t  locktime  =  cnode— ►getLockTime(); 
cerr  <  "Locktime  is:      "  <  ctime(&locktime)  <  "\n"; 

} 
return; 

} 

} 

void  V_OBJECT::listOperatorNames() 

{ 

Boolean  node_was_visited  =  FALSE; 
if(!this) 

{ 

cerr  <  "<ERR0R:  can  not  dump  children  of  a  null  V_0BJECT!>\n"; 

return; 

} 
if(!theChildPtr) 

{ 

cerr  <  "<ERROR:    can  not  print  children  of  a  null  childPtr!>\n"; 

return; 

} 
else 

{ 

List  *child_nodes  =  (List  *)  theChildPtr.Binding(this); 

Listlterator  ChildrenPtr(child_nodes); 

V_OBJECT  *cnode; 
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} 


int  index  =  1; 
while(ChildrenPtr.moreDataQ) 

{ 

cnode  =  (V.OBJECT  *)  (Entity  *)  ChildrenPtr(); 

node_was_visited  =  cnode— ►getVisitedFlag(); 

if  (cnode^getChildPtr()) 

{ 

cnode— ►  listOperatorNames(); 

} 
if  (node_was_visited  &&;  index  >  1) 

{ 

cnode— +  reset  VisitedFlag(); 

cnode— >putObject(); 

break; 

} 
else 

{ 

cnode— *-resetVisitedFlag(); 

cnode— ►putObjectQ; 

} 
if  (index  ==1) 

cnode— »setVisitedFlag() ; 
index++; 

cerr  <C  "Operator:      "; 
cout  <C  cnode— ►getName(); 
//************ 

//  following  for  loop  provides  spacing... 
II  *********** 

//  int  i=0; 

II  for  (i=0;i<(PRINT.  VERSION.LOCATION-strlen(cnode->getName()));i++) 

II  cout  «  "  "; 

cerr  <C  "\nVersion:      "; 

cout  <C  cnode— ►getVersionNumber(); 

cout  <  "\n"; 

time.t  locktime  =  cnode— +getLockTime(); 

cerr  <C  "Locktime  is:      "  ■<  ctime(&;locktime)  <C  "\n"; 

} 
resetVisitedFlag(); 
putObject(); 
return; 
} 


void  V_OBJECT::releaseLockSubtree() 

{ 

List  *child_nodes  =  (List  *)  theChildPtr.Binding(this); 

Listlterator  ChildrenPtr(child_nodes); 

V_OBJECT  *cnode; 

while(ChildrenPtr.moreData()) 
{ 
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cnode  =  (V.OBJECT  *)  (Entity  *)  ChildrenPtr(); 
if  (cnode— ►releaseLockQ) 

cnode— ►putObject(); 
else 

{ 

cerr  <C  "<Error  while  unlocking  "  <C  cnode— ►getNameQ  <C  "  Aborting.  .  .  >\n"; 

break;  //  should  try  to  unlock  other  siblings  and  their  children. 

> 

if  (cnode->getChildPtr()) 

{ 

cnode— ►  releaseLockSubtree(); 

} 
} 
return; 

} 

void  V_OBJECT::dumpSubtree(char  *file_write_option) 

{ 

Boolean  node.was.visited  =  FALSE; 

Boolean  file_operation_successful  =  FALSE; 

Boolean  write_operation  =  FALSE; 

if  (strcmp(file_write_option,"w")==0  ||  strcmp(file_write_option,"W")==0) 

write_operation  =  TRUE; 
if(!this) 

{ 

cerr  <  "<ERR0R:    can  not  dump  children  of  a  null  VJDBJECT!  >\n"; 

return; 

} 
if(!theChildPtr) 

{ 

cerr -C  "<ERROR:    can  not  print  children  of   a  null  childPtr!>\n"; 
return; 

} 
else 

{ 

List  *child_nodes  =  (List  *)  theChildPtr.Binding(this); 

Listlterator  ChildrenPtr(child_nodes); 

V.OBJECT  *cnode; 

int  index  =  1; 

while  (cnode  =  (V.OBJECT  *)  (Entity  *)ChildrenPtr()) 

{ 

node.was.visited  =  cnode— »-getVisitedFlag(); 
if  (cnode->getChildPtr()) 

{ 

cnode— ►  dumpSubtree(file_writejoption); 

} 
if  (node.was.visited  &&c  index  >  1) 

{ 

cnode— ► reset  VisitedFlag(); 
cnode— »putObject(); 
break; 
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} 

else 

{ 

cnode— *resetVisitedFlag(); 

cnode— ►putObjectQ ; 

} 
if  (index  ==1) 

cnode— ►setVisitedFlag(); 
else 

{ 

cnode— »-resetVisitedFlag() ; 
cnode— ►putObject(); 

} 
index++; 

long  cobjectJocktime  =  0; 
cobjectJocktime  =  cnode— »getLockTime(); 
if  (cobject  Jocktime>0)  //  prevent  checkout 

{  m 

if  (strcmp(file_write_option,"w")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERR0R:    Module  "  <  cnode— ►getNodeName() 
<  "   locked  by    :      "  <  cnode->getWorker() 

<C  "  Resetting  write  option  to  read-only>\n"; 
strcpy  (file_write  option ,  "r  " ) ; 

} 
cerr  <C  "<Caution:      "  <C  cnode— >getNodeName() 
<  "   is  locked.  >  \n"  <  "Date  Locked:     " 
<C  ctime(&;cobject  Jocktime) 

•C  "Node  checked  out   in  read-only  mode\n"; 

} 
cerr  <  "HODENAME >   "  <  cnode->getNodeName()  <C"\n"; 

cerr  <C  "Version:      "  <C  cnode— >-getVersionNumber()  <C  "\n\n"; 
file_operationjsuccessful  =  cnode— ►checkoutCOMPONENTNode(file  .write  .option); 
if  ((file_operation_successful)  &&; 

((strcmp(file_write.option,"W,,)==0)  1 1 
(strcmp(file_write_option,"w")==0))) 

{ 

cnode— vsetLock() ; 
cnode— >-setWorker() ; 
cnode— +resetLastOpFalse(); 
cnode— ►putObject() ; 

,    } 

if  (write_operation) 

strcpy(file_write  .option, "w"); 

} 
resetVisitedFlag(); 
putObject(); 
return; 
} 
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List  *  V_OBJECT::getChildren() 

{ 

List  *temp_list  =  (List  *)theChildPtr.Binding(this); 
if  (tempJist— >Cardinality()  >  0) 

return  tempJist; 
else 

return  NULL; 
} 

Boolean  V_OBJECT::getChildPtr() 

{ 

List  *tempJist  =  (List  f)theChildPtr.Binding(this); 
if  (tempJist— ►Cardinality^)  >  0) 

return  TRUE; 
else 

return  FALSE; 
} 

//  Member  Function  // 

Boolean  V_OBJECT::checkoutCOMPONENTNode(char  *file_write_option) 

{ 
if(!this) 

{ 

cerr  <  "<ERR0R:  cannot  checkout  COMPONENT  nodes  of  a  null  V_0BJECT\n"; 
return  FAILED; 

} 
if  (ItheCOMPONENTPtr) 

{ 

cerr  «C  "<ERR0R:    cannot  get  the  source  code  from  a  null  C0HP0NENT>\n"; 
return  FAILED; 

} 
else 

{ 

COMPONENT  *myCOMPONENTPtr  =  (COMPONENT*)  theCOMPONENTPtr.Binding(this); 

return  (myCOMPONENTPtr  — *  getComponentSource(file_write_option)); 

} 

} 
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//  File  Header 

// •• 

// .Filename :  vobjectfunc.h 

//.SCCS  ID :  1.3 

/ / .Release  No....:  1 

I /.Date :  9/16/91 

/ / .Author :  Garry  Lewis 

II :  Drew  Dwyer 

I /.Compiler ;  Glockenspiel  C++  2.1 

II -• 

//  End  header  comments 


#ifndef  _VOBJECTFUNC_H 
•define  _VOBJECTFUNC_H 

//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in  object  file 

static  char  vobjectfunc_h_SccsId[]  =  "«(#)vobjectfunc.h  1 .3\t9/16/91"; 

//  Contents 

// 

//  VOBJECTFUNC 

II 

II  Description 

II 

If  Defines  functions  manipulating  Versioned  Objects 

If  (Operators)  as  called  by  main() 

II 

II  End 

//  Interface  Dependencies 

// 

//  NONE 

II 

II  End  Interface  Dependencies 

void  list_operators_func(int,  char  *,  char  *,  char  *); 
voidupdate_vobject_desc_func(int,  char  *,char  *,char  *,char  *); 
voidget_vobject_desc_func(int  ,char  *,  char  *,char  *); 
void  get_vobject_date_func(int  ,  char  *,char  *,char  *); 
void  get_vobject_versions_func(int  ,  char  *,char  *); 
void  get.vobject  Jock  Junc(int,  char  *,  char  *,  char  *); 
void  get_vobject_version_func(); 

void  dump_vobjectjsummary_func(int  ,  char  *,char  *,char  *); 
void  get_vobject_psfile_func(int  ,  char  *,  char  *,char  *,  char  *); 
voidget_vobject_graphfile_func(int  ,  char  *,char  *,char  *,  char  *); 
voidget_vobjectimpfile_func(int  ,  char  *,  char  *,char  *,  char  *); 
void  get.vobject _specfile_func(int  ,  char  *,char  *,char  *,  char  *); 
void  get _vobject-Sourcefile_func(int  ,  char  *,char  *,char  *,  char  *); 
void  dump.vobject Jiles J*unc(int  ,  char  *,  char  *,char  *,  char  *); 
void  dump_vobject_tree J"unc(int  ,  char  *,  char  *,char  *,  char  *); 
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void  long _list_children_func(int , char  *,  char  *,  char  *); 
void  long Jist_parents_func(int, char  *,  char  *,  char  *); 
void  long _list_operators_func(int,  char  *,  char  *,  char  *); 
void  release  .operator  Jock  _func(int,  char  *,  char  *,  char  *); 
void  release  .subtree  Jock  Junc(int,  char  *,  char  *,  char  *); 
void  add_vobject^and-Subtree_func(int  ,  char  *,  char  *); 

//  Description 

// 

//  list.operators.func 

II 

II  Provides  a  list  of  operators  associated  with  a 

jl  subtree  of  a  designated  versioned.object. 

II 

II  update.vobject-descjunc 

II 

II  Updates  the  description  text  of  a  designated  versioned 

II  object. 

II 

II  get.vobject-desc-func 

II 

II  Provides  a  description  of  the  designated  versioned  object. 

II 

II  get.vobject-date.func 

II 

II  Displays  the  date  that  the  versioned  object  was  created. 

II 

II  getjvobject-versions.func 

II 

II  Checks  the  thread  and  displays  the  different  versions. 

II 

II  get.vobjectJock.func 

II 

II  Displays  a  26  character  text  entry  reflecting  the  time 

II  and  date  that  the  versioned  object  was  locked. 

II 

II  get.vobject-version.func 

II 

If  returns  the  version  of  the  versioned  object  instance. 

II 

II  dump-vobjectsummary.func 

II 

II  displays  predetermined  attribute  fields  to  stdout/stderr. 

II 

II  get.vobjecijpsfih-func 

II 

II  rebuilds  the  CAPS  postscript  file  to  the  PROTOTYPE 

II  directory. 

II 

II  get.vobject.graphfile.func 

II 
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//  rebuilds  the  CAPS  graph  file  to  the  PROTOTYPE  directory. 

II 

lj  get.vobject.impfile.func 

II 

II  rebuilds  the  CAPS  implementation  file  to  the  PROTOTYPE  directory. 

II 

II  get.vobjectjspecfile.func 

II 

II  rebuilds  the  CAPS  specification  file  to  the  PROTOTYPE  directory. 

II 

II  get.vobjectjsourcefile.func 

II 

II  rebuilds  the  CAPS  source  file  to  the  PROTOTYPE  directory. 

II 

II  dump.vobject.files.func 

II 

If  rebuilds  all  of  the  above  files  (of  one  operator)  to  the 

II  PROTOTYPE  directory. 

II 

II  dump.vobject.tree.func 

II 

II  rebuilds  all  existing  TEXT.OBJECT  attributes  to  the  PROTOTYPE 

II  directory  for  the  entire  decomposition  of  the  root  operator 

If  down  to  the  component  operators.   May  be  dumped  in  "read  only" 

II  or  "read/write".    When  dumped,  all  versioned  objects  are 

If  locked  for  modification  by  other  users. 

II 

II  long.list.children.func 

II 

II  lists  the  node  name  and  version  number  of  children. 

II 

II  long.list.parents.func 

II 

II  lists  the  most  current  parent  (and  that  parents  siblings). 

II 

If  long.list.operators.func 

II 

If  lists  the  node  name  and  version  number  of  a  node's  children. 

II 

II  release  .operator. lock.func 

II 

II  reset  the  locktime  of  a  versioned  operator. 

II 

II  release.subtree.lock.func 

II 

If  reset  the  locktime  of  a  versioned  operator  and  all  children 

II  of  that  versioned  operator. 

II 

II  add.vobject.andjsubtree.func 

II 

II  the  reverse  of  a  dumping  vobjects.  this  checks  versioned 
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//  objects  back  into  the  database,  versioning  them  if  necessary. 

II 

/I  End  Description 

#endif  //  end  vobjectfunc  header  function 
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//  File  Header 

// •• 

//.Filename :  vobjectfunc.cxx 

//.SCCS  ID :  1.3 

//.Release  No....:  1 

//.Date :  9/16/91 

1/ .Author :  Garry  Lewis 

/I :  Drew  Dwyer 

1 1 .Compiler :  Glockenspiel  C++  2.1 

II •• 

//  End  header  comments 


//  SCCS  ID  follows:  will  compile  to  place  date/time  stamp  in  object  file 

static  char  vobjectfunc_cxx_SccsId[]  =  "•(#) vobjectfunc.cxx  1.3\t9/16/91"; 

//  Contents 

// 

//  list-operators.func 

II  update.vobject-desc.func 

II  get.vobject.desc.func 

If  get.vobject.date.func 

II  get.vobject.versions.func 

II  get.vobject.lock.func 

If  get.vobject.version.func 

II  dump  .vobjectsummary  .func 

II  get.vobject.psfile.func 

If  get.vobject.graphfile.func 

II  get.vobject.impfile.func 

II  get.vobjectspecfile.func 

II  get-vobjectsourcefilejunc 

II  dump.vobject.files-func 

If  dump-.vobjectJree.func 

If  long.list-children.func 

II  longJist-parents-func 

If  longJisi-operators-func 

If  release.operatorJock-func 

If  releasesubtreeJock-func 

II  add-vobject-andsubtree-func 

II 

If  Description 

II 

II  this  contains  the  functions  for  manipulating  versioned  objects 

II 

II  End 

//  Interface  Dependencies 

// 

#include  <stream.hxx> 
#include  <List.h> 


315 


#include  <Directory .h> 

extern  "C~"{ 
#include  <stdlib.h> 

} 

#if ndef  _DIRECTORY_H 
#include  "directory  .h" 
#endii 

#ilndef  _TREE_H 
#include"tree.h" 
*endif 

#ifndef  _TREENODE_H 
#include  "treenode.h" 
#endif 

# if ndef  _PROTOTYPE_H 
# include  "prototype. h" 
#endif 

#ifndef  _COMPONENT_H 
# include  "component .h" 
# end if 

#ifndef  _VOBJECT-H 

# include  "versioned_object  .h" 

#endif 

#ifndef  _THREAD_H 
#include"  thread,  h" 
#endif 

#ifndef  _VOBJECTFUNC_H 
# include  "vobjectfunc.h" 
#endif 

#ifndef  _DDBDEFINES_H 
#include  "ddbdef ines.h" 
# end if 

// 

//  End  Interface  Dependencies  — 


extern  Type  *THREAD_OType; 
extern  Directory  *prototype_dir; 
PROTOTYPE  *prototypeptr; 
THREAD  *threadPtr; 
COMPONENT  *COMPONENTPtr; 
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long  vobjectJocktime  =0; 


void  list_operators_func(int  number_arguments,  char  *proto_name, 

char  *operator_name,  char  *versionstr) 

{ 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy  (prototype  jiame,proto_name); 
strcat(prototype_name,PROTOTYPE_EXT); 
switch  (number-arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OC  Jookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— ►currentO; 

cerr  <C  "Operator :      "; 

cout  <C  vobjectPtr— ►getName(); 

cerr  <C  "\nVersion:      "; 

cout  ■<  vobjectPtr— ►getVersionNumber(); 

cout  <  "\n"; 

time.t  locktime  =  vobjectPtr— ►getLockTime(); 

cerr  -C  "Locktime  is:      "  -C  ctime(&.locktime)  <C  "\n"; 

vobjectPtr  — distOperatorNamesQ; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  LIST  OPERATORS:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  LIST  OPERATORS :>\n"; 

} 
break; 
case  3: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V.OBJECT  *  vobjectPtr; 

vobjectPtr  =  threadPtr— >version(atoi(versionstr)); 

cerr  <  "Operator:      "; 

cout  <C  vobjectPtr— +getName(); 
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} 


cerr  <  "\nVersion:      "; 

cout  <C  vobjectPtr— ►getVersionNumber(); 

cout  <  "\n"; 

time_t  locktime  =  vobjectPtr— ►getLockTime(); 

cerr  <  "Locktime  is:      "  <  ctime(&locktime)  <  "\n"; 

vobjectPtr  — ►listOperatorNames(); 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_DESC:>\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET_VOBJECT_DESC:>\n"; 

} 
break; 

default : 

cout  <C  "<ERR0R:    invalid  number  args  for  get  vobject  description>\n"; 
} 


void  update_vobject_desc_func(int  number-arguments, char  *proto_name, 

char  *operator_name,  char  *filename, 
char  *versionstr) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 

strcpy(prototype_name,proto_name); 

strcat(prototype_name,PROTOTYPEJEXT); 

ifstream  descriptionJile; 
description_file.open(filename); 
if  (!description_flle) 

cout  <C  "<Description  File  not  Found!     >\n" 

■C  "<Abnormal  terminate  from  update.  vobject_desc_func>\n"; 
else 

{ 

switch  (number-arguments) 

{ 
case  3: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 

if  (threadPtr) 

{ 

V.OBJECT  *  vobjectPtr; 

vobjectPtr  =  threadPtr— t-current(); 

vobjectPtr  — ►updateDescription(filename, description-file) ; 

} 
else 
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{ 

cout  <  "<Error  getting  thread  in  UPDATE. VOBJECT_DESC:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  UPDATE_VOBJECT_DESC:>\n"; 

} 
break; 
case  4: 

prototypeptr  =  (PROTOTYPE*)OC  _lookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 

if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— ►version(atoi(versionstr)); 

vobjectPtr  — ►updateDescription(filename,  description  -file); 

} 
else 

{ 

cout  <  "<Error  getting  thread   in  UPDATE. VOBJECT_DESC:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype   in  UPDATE_VOBJECT_DESC:>\n"; 

} 
break; 
default : 

cout  <C  "<ERR0R:    invalid  number  args  for  update  vobject  description>\n"; 

} 
} 
} 

void  get_vobject_desc _func(int  number^arguments,char  *proto_name, 

char  *operator_name,char  *versionstr) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 

strcpy(prototype_name,proto_name); 

strcat(prototype_name,PROTOTYPE_EXT); 

switch  (number_arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator  Jiame); 
if  (threadPtr) 
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} 


{ 

V  .OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— +current(); 
vobjectPtr  — ►getDescription(); 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_DESC:>\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET_VOBJECT_DESC:>\n"; 

} 
break; 
case  3: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 

if  (threadPtr) 

{ 

V_OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— ^version(atoi(versionstr)); 

vobjectPtr  — *getDescription(); 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_DESC:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET_VOBJECT_DESC:  >\n"; 

} 
break; 
default : 

cout  <C  "<ERROR:    invalid  number  args  for  get  vobject  description>\n"; 
} 


void  release-subtree  Jock  _func(int  number  ^arguments,  char  *proto_name, 

char  *operator_name,char  *versionstr) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy  (prototype  .name,  proto_name); 
strcat(prototype_name,PROTOTYPE.EXT); 

switch  (number_arguments) 

{ 
case  2: 
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prototypeptr  =  (PROTOTYPE*)OC_lookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V -OBJECT  *vobjectPtr; 
vobjectPtr  =  threadPtr— ►currentQ; 

if  (vobjectPtr— ^releaseLock()) 

{ 

vobjectPtr— ►  putObject(); 

vobjectPtr— >TeleaseLockSubtree() ; 

} 
else 

cerr  <C  "<Error:     Couldn't  unlock  "  <C  vobjectPtr— ►getNameO 
<C  "   Aborting  releaseLock  for  rest  of   subtree>\n"; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  SUBTREE. RELEASE-LOCK:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype   in  SUBTREE_RELEASE_LOCK:  >\n"; 

} 
break; 

case  3: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V.OBJECT  *  vobjectPtr; 

vobjectPtr  =  threadPtr— *version(atoi(versionstr)); 

if  (vobjectPtr  — ►releaseLockO) 

{ 

vobjectPtr— ►putObject(); 
vobjectPtr  — >releaseLockSubtree(); 

} 
else 

cerr  <C  "<Error:     Couldn't  unlock  "<C vobjectPtr— ^getName() 

<C  "  Aborting  releaseLock  for  rest  of  subtree>\n"; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  SUBTREE. RELEASE. LOCK:  >\n"; 

} 
} 
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else 

{ 

cout  <  "<Error  getting  Prototype   in  SUBTREE_RELEASE_LOCK:  >\n"; 

} 
break; 
default: 

cout  <C  "<ERROR:    invalid  number  args  lor  subtree  release  lock>\n"; 
} 
} 

void  release  .operator  Jock  _func(int  number-arguments,  char  *proto_name, 

char  *operator_name,char  *versionstr) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 

strcpy(prototype_name,proto_name); 

strcat(prototype_Qame,PROTOTYPE_EXT); 

switch  (number-arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OC  _lookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V  .OBJECT  *  vobjectPtr; 
vobjectPtr  =  threadPtr— ►currentO; 
if  (vobjectPtr— »releaseLock()) 

vobjectPtr— ►putObjectO; 
else 

cerr  <C  "<Error:      Couldn't  unlock  " <C vobjectPtr— >getName() 
<C  "   Aborting  release  lock>\n"; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  RELEASE-LOCK:  >\n"; 

} 
} 
else 

{ 

cout -C  "<Error  getting  Prototype   in  RELEASE-LOCK :>\n"; 

} 
break; 

case  3: 

prototypeptr  =  (PROTOTYPE*)OC_lookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 

if  (threadPtr) 
{ 


322 


} 


V.OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— ^version(atoi(versionstr)); 

if  (vobjectPtr— >releaseLock()) 

vobjectPtr— ►putObject(); 
else 

cerr  <C  "<Error:      Couldn't  unlock  "<C  vobjectPtr— ►getNameQ 
<C  "  Aborting  release  lock>\n"; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  RELEASE-LOCK :>\n"; 

} 
} 
else 

{ 

cout  <C  "<Error  getting  Prototype  in  RELEASE-LOCK :>\n"; 

} 
break; 

default: 

cout  <C  "<ERR0R:    invalid  number  args  for  release  lock>\n"; 
} 


void  get_vobject_date_func(int  number_arguments,  char  *proto_name, 

char  *operator_name,char  *versionstr) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy(prototype_name,proto_name); 
strcat(prototype_name,PROTOTYPE_EXT); 
time.t  creation-date; 

switch  (number_arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OC  _lookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V.OBJECT  *  vobjectPtr; 
vobjectPtr  =  threadPtr— »xurrent(); 
creation.date  =  vobjectPtr  — +getCreationDate(); 
cout  «C  ctime(&xreation_date)  <C  "\n"; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_DATE:  >\n"; 

} 
} 
else 
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{ 

cout  <  "<Error  getting  Prototype   in  GET_VOBJECT_DATE:>\n"; 

} 
break; 
case  3: 

prototypeptr  =  (PROTOTYPE*)OC  _lookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V  .OBJECT  *  vobjectPtr; 

vobjectPtr  =  threadPtr— ►version(atoi(versionstr)); 

creation.date  =  vobjectPtr  — >getCreationDate(); 

cout  <C  ctime(&;creation_date)  <C  "\n"; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_DATE:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET_VOBJECT_DATE:  >\n"; 

} 
break; 
default: 

cout  <C  "<ERROR:    invalid  number  args  for  get  vobject  date>\n"; 
} 
} 

void  get_vobject_versions_func(int  number-arguments,  char  *proto_name, 

char  *operator_name) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)-f5]; 

strcpy(prototype_name,proto_name); 

strcat(prototype_name,PROTOTYPE_EXT); 

switch  (number_arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OC  Jookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

threadPtr— ^display  Thread  Versions(); 

} 
else 

{ 
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cout  <  "<Error  getting  thread  in  GET_VOBJECT_ VERSIONS:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET.VOB  JECT_  VERSIONS  :>\nM; 

} 
break; 
default: 

cout  <  "<ERROR:  invalid  number  args  lor  get  vobject  VERSIONS>\n"; 

} 
} 

void  get.vobject  Jock_func(int  number_arguments,  char  *proto_name, 

char  *operator_name,char  *versionstr) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 

strcpy(prototype_name,proto_name); 

strcat(prototype_name,PROTOTYPE_EXT); 

time_t  lock.time; 

switch  (number_arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 

if  (threadPtr) 

{ 
V  .OBJECT  *vobjectPtr; 
vobjectPtr  =  threadPtr— ►currentO; 
lock.time  =  vobjectPtr  — i-getLockTime(); 
cerr  <  "Locktime:      "; 
cout  <C  ctime(&lock_time)  ■<  "\n"; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_LOCK:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype   in  GET_VOBJECT_LOCK:  >\n"; 

} 
break; 
case  3: 

prototypeptr  =  (PROTOTYPE*)OC  Jookup(prototypejiame); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
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if  (threadPtr) 

{ 

V  .OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— +version(atoi(versionstr)); 

lock-time  =  vobjectPtr  — ►getLockTime(); 

cerr  <  "Locktime:      "; 

cout  <C  ctime(&lock_time)  •<  "\n"; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_LOCK:>\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET_VOBJECT_LOCK:  >\n"; 

} 
break; 
default : 

cout  <C  "<ERROR:  invalid  number  args  lor  get  vobject  lock>\n"; 
} 


} 


void  get_vobject_version_func() 

{ 

cout  <C  "Not  implemented.  Unclear  specs  lor  get  version  ol  vobject\n"; 

} 

void  dump_vobject_summary_func(int  number_arguments,  char  *proto_name, 

char  *operator_name,char  *versionstr) 

{ 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy(prototypejiame,proto_name); 
strcat(prototypejiame,PROTOTYPE_EXT); 

switch  (number_arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 

if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr; 
vobjectPtr  =  threadPtr— ►currentO; 
vobjectPtr— t-dumpVObjSummary(); 

} 
else 

{ 
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cout  <  "<Error  getting  thread  in  GET_VOBJECT_SUMMARY:  >\n"; 
} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET_VOBJECT_SUMMARY:>\n"; 

} 
break; 
case  3: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— *-version(atoi(versionstr)); 

vobjectPtr— +dumpVObjSummary(); 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_SUMMARY:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype   in  GET_VOBJECT_SUMMARY:>\n"; 

} 
break; 
default: 

cout  <C  "<ERROR:    invalid  number  args  for  get  vobject  summary >\n"; 
} 
} 

void  get_vobject_psfileJunc(int  number_arguments,  char  *proto_name, 

char  *operator_name,char  *file_write_option,char  *versionstr) 

{ 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy(prototype_name,protojname); 
strcat(prototypejiame,PROTOTYPE_EXT); 

switch  (number^arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (prototypeptr) 

{ 
threadPtr  =  (THREAD  *)OC_lookup(operator_name); 
if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr; 
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vobjectPtr  =  threadPtr— >current(); 
vobjectJocktime  =  vobjectPtr— ►getLockTime(); 
if  (vobject  Jocktime>0)  //  prevent  checkout 

{ 

if  (strcmp(file_write_option,"w")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERROR:    Module   "  <  vobjectPtr— ►getNodeName() 
<  "  locked  by   :     "  <  vobjectPtr->getWorker() 
<C  "  Resetting  write  option  to  read-only>\n"; 
strcpy(file_write  .option, "r"); 

} 
cerr  <C  "<Caution:      "  «C  vobjectPtr— »-getNodeName() 
<  "   is  locked. >  \n"  <  "Date  Locked:     " 
•C  ctime(<kvobject  Jocktime) 

<C  "operator  files   checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <  "NODENAME >   "  <  vobjectPtr— getNodeName()  «"\n"; 

COMPONENTPtr  =vobjectPtr— getCOMPONENT(); 

if  ((COMPONENTPtr— getPSfile(file_write.option))  kk 

((strcmp(file_writejoption,"W")==0)  1 1 

(strcmp(file_write_option,"w")==0))) 

{ 

vobjectPtr  — ►  setLock();  //  set  root  lock 
vobjectPtr  — ►  setWorker(); 
vobjectPtr  —»  resetLastOpFalse(); 
vobjectPtr— ►putObject(); 
} 
} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_PS:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype   in  GET_VOBJECT_PS:>\n"; 

} 
break; 
case  3: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototypejiame); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operatorjiame); 

if  (threadPtr) 

{ 

V_OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— ►version(atoi(versionstr)); 
vobjectJocktime  =  vobjectPtr— +getLockTime(); 
if  (vobject_locktime>0)  //  prevent  checkout 
{ 
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if  (strcmp(file_write_option,"s")=:=0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERROR:    Module   "  <  vobjectPtr-»getNodeName() 
<  "  locked  by   :     "  <  vobjectPtr->get Worker () 
<C  "  Resetting  write  option  to  read-only>\n"; 
strcpy(file_write  .option,  "r"); 

} 
cerr  <C  "<Caution:      "  <C  vobjectPtr— ►getNodeName() 
<  "   is  locked. >  \n" 

■C  "Date  Locked:      "•<  ctime(<kvobjectJocktime) 

•^C  "operator  files  checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <  "HODEMAME >   "  <  vobjectPtr— getNodeName()  <"\n"; 

if  ((strcmp(nle_write_option,"W")==0)  || 
(strcmp(file_write.option,"s")==0)) 

{ 

vobjectPtr  — ►  setLock();  //  set  root  lock 
vobjectPtr  — *  setWorker(); 
vobjectPtr  —*  resetLastOpFalse(); 
vobjectPtr— >putObject(); 

} 
COMPONENTPtr  =  vobjectPtr-^getCOMPONENT(); 

COMPONENTPtr  ^getPSnle(nle.writejoption); 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_PS:>\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET_VOBJECT_PS>"; 

} 
break; 
default: 

cout  <C  "<ERROR:  invalid  number  args  lor  get  vobject  PS>\n"; 

} 


void  get_vobject-graphnle_func(int  number_arguments,  char  *proto_name, 

char  *operator_name,char  *file_write_option,char  *versionstr) 

{ 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy  (prototype-name, proto_name); 
strcat(prototype_name,PROTOTYPE_EXT); 


switch  (number^arguments) 
{ 
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case  2: 

prototypeptr  =  (PROTOTYPE*)OC_lookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V.OBJECT  *  vobjectPtr; 
vobjectPtr  =  threadPtr— ►currentQ; 
vobjectJocktime  =  vobjectPtr— fgetLockTime(); 
if  (vobject  Jocktime>0)  //  prevent  checkout 

{ 

if  (strcmp(file_write_option,"w")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  M<ERR0R:    Module  "  <  vobjectPtr->getNodeName() 

<  "  locked  by   :     "  <  vobjectPtr-»getWorker() 
<C  "  Resetting  write  option  to  read-only>\n"; 
strcpy(file_write  .option,  "r"); 

} 
cerr  <C  "<Caution:      "  <C  vobjectPtr— ►getNodeNameQ 
<  "   is  locked.  >  \n"  <C  "Date  Locked:     " 
•C  ctime(&:vobjectJocktime) 

<C  "operator  files   checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <  "HODENAME >   "  <  vobjectPtr— getNodeName()  <"\n"; 

COMPONENTPtr  =vobjectPtr— getCOMPONENT(); 
if  ((COMPONENTPtr— getGRAPHfile(nle.write.option))  && 
((strcmp(file_writejDption,"W")==0)  || 
(strcmp(nle_write_option,"w")=:=0))) 

{ 

vobjectPtr  — »  setLock();  //  set  root  lock 
vobjectPtr  — >  setWorker(); 
vobjectPtr  — »  resetLastOpFalse(); 
vobjectPtr— ►putObject(); 
} 
} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_GRAPH:>\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET_VOBJECT_GRAPH:>\n"; 

} 
break; 
case  3: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 
{ 
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} 


threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr-— ►version(atoi(versionstr)); 
vobjectJocktime  =  vobjectPtr— +getLockTime(); 
if  (vobject Jocktime>0)  //  prevent  checkout 

{ 

if  (strcmp(file_write_option,Mw")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERROR:    Module  "  <  vobjectPtr—getNodeName() 
<  "  locked  by   :     "  <  vobjectPtr—get  Worker() 
<C!  "  Resetting  write  option  to  read-only>\n"; 
strcpy(file_write  .option, "r"); 

} 
cerr  <  "<Caution:      "  -C  vobjectPtr— >getNodeName() 
<  "   is  locked. >  \n" 

•C  "Date  Locked:      "<C  ctime(&vobjectJocktime) 

<C  "operator  files   checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <  "HODENAME  — >   "  <  vobjectPtr— getNodeName()  <"\n"; 
if  ((strcmp(file.write_option,"W")==0)  || 
(strcmp(file_writejoption,"w")==0)) 

{ 

vobjectPtr  — +  setLock();  //  set  root  lock 
vobjectPtr  — ►  setWorker(); 
vobjectPtr  — ♦  resetLastOpFalseQ; 
vobjectPtr— ►putObjectO; 

} 
COMPONENTPtr  =  vobjectPtr— getCOMPONENT(); 
COMPONENTPtr  — getGRAPHfile(file_write_option); 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_GRAPH:>\n"; 

} 

} 
else 

{ 

cout  <  "<Error  getting  Prototype   in  GET_VOBJECT_GRAPH>"; 

} 
break; 
default: 

cout  <C  "<ERROR:    invalid  number  args  lor  get  vobject  GRAPH>\n"; 
} 


void  get_vobject_impfile_func(int  number-arguments ,  char  *proto_name, 

char  *operator_name,char  *file_write_option,char  *versionstr) 
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{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy  (prototype  _name,proto_name); 
strcat(prototypejiame,PROTOTYPE_EXT); 

switch  (number^arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OC  Jookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 

if  (threadPtr) 

{ 

V  .OBJECT  *  vobjectPtr; 
vobjectPtr  =  threadPtr— ►currentO; 
vobjectJocktime  =  vobjectPtr— ►getLockTime(); 
if  (vobject  Jocktime>0)  //  prevent  checkout 

{ 

if  (strcmp(file_write_option,"s")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERROR:    Module   "  <  vobjectPtr—getNodeNameQ 
<  "   locked  by    :      "  <  vobjectPtr— ►get Worker () 
<C  "  Resetting  write  option  to  read-only>\n"; 
strcpy  (file_write  .option, "r"); 

} 
cerr  <C  "<Caution:      "  <C  vobjectPtr— ♦getNodeNameQ 
<  "   is  locked. >  \n"  <  "Date  Locked:     " 
•C;  ctime(&vobject  Jocktime) 

•C  "operator  files   checked  out   in  read-only  mode\n" 

} 
else 

cerr  <  "HODENAME >   "  <  vobjectPtr— getNodeName()  <"\n"; 

COMPONENTPtr  =vobjectPtr— getCOMPONENT(); 
if  ((COMPONENTPtr— getIMPfile(file.write option))  kk 
((strcmp(nle_write-option,"W")==0)  || 
(strcmp(file_write_option,"H")==0))) 

{ 

vobjectPtr  — »  setLock();  //  set  root  lock 
vobjectPtr  — »  setWorker(); 
vobjectPtr  — ♦  resetLastOpFalse(); 
vobjectPtr— +putObject(); 
} 
} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_IMP:  >\n"; 

} 
} 
else 

{ 
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cout  <  "<Error  getting  Prototype   in  GET_VOBJECT_IMP:>\n"; 

} 
break; 
case  3: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V  .OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— +version(atoi(versionstr)); 
vobjectJocktime  =  vobjectPtr— ►getLockTime(); 
if  (vobject  _locktime>0)  //  prevent  checkout 

{   f 

if  (strcmp(file_write_option,"w")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERR0R:    Module   "  <  vobjectPtr— ►getNodeNameQ 
<  "   locked  by    :      "  <  vobjectPtr-+getWorker() 
<C  "   Resetting  write  option  to  read-only>\n"; 
strcpy(file  .write  jDption,"r"); 

} 
cerr  <C  "<Caution:      "  <C  vobjectPtr— ►getNodeNameQ 
<  "   is  locked.  >  \n" 

•C  "Date  Locked:      "<C  ctime(&;vobject_locktime) 

<C  "operator  files   checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <  "HODENAME >  "  <  vobjectPtr-»getNodeName()  <C"\n"; 

if  ((strcmp(file_write_option,"W")==0)  || 

(strcmp(file_writejoption,"w")==0)) 

{ 

vobjectPtr  — ►  setLock();  //  set  root  lock 
vobjectPtr  — ►  setWorker(); 
vobjectPtr  — ►  resetLastOpFalse(); 
vobjectPtr— ►putObject(); 

} 
COMPONENTPtr  =  vobjectPtr^getCOMPONENT(); 
COMPONENTPtr  ^getlMPfile(file.writejoption); 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_ VOBJECT. IMP:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET.VOBJECT_IMP>"; 

} 
break; 
default: 
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cout  <C  "<ERROR:  invalid  number  args  lor  get  vobject  IMP>\n"; 
} 

} 

void  get  .vobject  .specfile  Junc(int  number_arguments,  char  *proto_name, 

char  *operator_name,char  *file_write_option,char  *versionstr) 

{ 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy(prototype_name,proto_name); 
strcattprototypejiame.PROTOTYPE-EXT); 

switch  (numberjtrguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OC  Jookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V_OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— +current(); 

vobject  Jocktime  =  vobjectPtr— ►getLockTime(); 

if  (vobjectJocktime>0)  //  prevent  checkout 

{  m 

if  (strcmp(file.write_option,"H")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERROR:    Module   "  <  vobjectPtr— ►getNodeNameQ 
<  "  locked  by   :     "  <  vobjectPtr— ►getWorker() 
<C  "  Resetting  write  option  to  read-only>\n"; 
strcpy(file_write-option,"r"); 

} 
else 

cerr  <C  "<Caution:      "  <  vobjectPtr— ►getNodeName() 
<  "   is  locked. >  \n"  <  "Date  Locked:     " 
<C  ctime(&vobjectJocktime) 

<C  "operator  files   checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <  "MODEHAME >  "  <  vobjectPtr->getNodeName()  <"\n"; 

COMPONENTPtr  =vobjectPtr^getCOMPONENT(); 
if  ((COMPONENTPtr-+getSPECfile(file_write option))  kk 
((strcmp(file_writejoption,"W")==0)  || 
(strcmp(file_write_option,"w")==0))) 

{ 

vobjectPtr  — ►  setLock();  //  set  root  lock 
vobjectPtr  — ►  setWorker(); 
vobjectPtr  — *  resetLastOpFalse(); 
vobjectPtr— ►putObject() ; 

} 
} 
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else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_SPEC:  >\n"; 

} 

} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET_VOBJECT_SPEC:>\n"; 

} 
break; 
case  3: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 

if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— *version(atoi(versionstr)); 

vobjectJocktime  =  vobjectPtr— ►getLockTime(); 

if  (vobjectJocktime>0)  //  lock  was  set. .prevent  "w"  checkout 

{ 

if  (strcmp(file_write_option,"w")==0)  //  if  attempting  "w"  -  change  to  "r" 

{ 

cerr  <  "<ERR0R:    Module   "  <  vobjectPtr— ►getNodeNameQ 

<  "  locked  by   :     "  <  vobjectPtr— ►getWorker() 

<!  "  Resetting  write  option  to  read-only>\n"; 

strcpy(file_write_option,"r"); 

} 
else 

cerr  «C  "<Caution:      "  <  vobjectPtr— ►getNodeNameQ 
<  "   is  locked. >  \n"  <  "Date  Locked:     " 
<C  ctime(&vobject Jocktime) 

•C  "operator  files   checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <  "HODENAME >  "  <  vobjectPtr^getNodeName()  <"\n"; 

COMPONENTPtr  =  vobjectPtr-*getCOMPONENT(); 
if  ((COMPONENTPtr  ^getSPECfile(file_write  joption))  kk 
((strcmp(file_writejoption,"W")==0)  || 
(strcmp(file_write_option,"w")==0))) 

{ 

vobjectPtr  —*  setLock();  //  set  root  lock 

vobjectPtr  — ►  setWorker(); 
vobjectPtr  — >  resetLastOpFalse(); 
vobjectPtr— »putObject(); 
} 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_SPEC:>\n"; 
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} 


} 
} 

else 

{ 

cout  <  "<Error  getting  Prototype  in  GET_VOBJECT_SPEC>"; 

} 

break; 
default: 

cout  •<  "<ERR0R:    invalid  number  args  ior  get  vobject  SPEC>\n"; 
} 


void  get_vobjectjsourcefile_func(int  number -arguments,  char  *proto_name, 

char  *operator_name,char  *file_write_option,char  *versionstr) 

{ 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy(prototype_name,proto_name); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch  (number-arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V  .OBJECT  *  vobjectPtr; 

vobjectPtr  =  threadPtr— »current(); 

vobject  Jocktime  =  vobjectPtr— ►getLockTime(); 

if  (vobjectJocktime>0)  //  prevent  checkout 

{   m 

if  (strcmp(file_write_option,"w")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERR0R:    Module   "  <  vobjectPtr->getNodeName() 

<  "  locked  by   :     "  <  vobjectPtr->getWorker() 

<ti  "  Resetting  write  option  to  read-only>\n"; 

strcpy(file_write  option, "r"); 

} 
else 

cerr  <C  "<Caution:      "  <C  vobjectPtr— ►getNodeName() 
<  "   is  locked. >  \n"  <  "Date  Locked:     " 
•C  ctime(fcvobjectJocktime) 

<C  "operator  files  checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <  "IODEMAME >  "  <  vobjectPtr->getNodeName()  <"\n"; 

COMPONENTPtr  =vobjectPtr-^getCOMPONENT(); 
if  ((COMPONENTPtr^getSOURCEfile(file_write option))  && 
((strcmp(file_writejoption,"W")==0)  || 
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(strcmp(file_write_option,"w")==0))) 

{ 

vobjectPtr  — ►  setLock(); 

vobjectPtr  — ►  setWorker(); 
vobjectPtr  — *  resetLastOpFalse(); 
vobjectPtr— ►putObject(); 

} 
} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_SOURCE:>\n"; 

} 
} 
else 

{ 

cout  <C  "<Error  getting  Prototype   in  GET_VOBJECT_SOURCE:>\n"; 

} 
break; 

case  3: 

prototypeptr  =  (PROTOTYPE*)OC_lookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V -OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— ^version(atoi(versionstr)); 
vobjectJocktime  =  vobjectPtr— ►getLockTime(); 
if  (vobject_locktime>0)  //  prevent  checkout 

{   m 

if  (strcmp(file_write_option,"w")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERR0R:    Module   "  <  vobjectPtr— getNodeNameQ 

<  "  locked  by   :     "  <  vobjectPtr— getWorker() 

<C  "   Resetting  write  option  to  read-only>\n"; 

strcpy  (file  .write  .option,  "r" ) ; 

} 
else 

cerr  <  "<Caution:      "  <C  vobjectPtr— getNodeNameQ 
<  "   is  locked. >  \n"  <C  "Date  Locked:     " 
<C  ctime(&vobjectJocktime) 

•C  "operator  files   checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <C  "IODEHAME >   "  <  vobjectPtr— getNodeName()  <"\n"; 

COMPONENTPtr  =  vobjectPtr— getCOMPONENT(); 
if  ((COMPONENTPtr— getSOURCEfile(file_write_option))  kk 
((strcmp(file_writej3ption,"V")==0)  || 
(strcmp(file_writejoption,"w")==0))) 

{ 

vobjectPtr  — *  setLock();  //  set  root  lock 


337 


} 


vobjectPtr  — ►  setWorker(); 
vobjectPtr  — ►  resetLastOpFalse(); 
vob  jectPtr  — ►putObject() ; 
} 
} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_SOURCE:>\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  GET_VOBJECT_SOURCE>"; 

} 
break; 
default: 

cout  <  "<ERROR:    invalid  number  args  for  get  vobject  S0URCE>\n"; 
} 


void  dump_vobject_files_func(int  number_arguments,  char  *proto_name, 

char  *operator_name,char  *file_write_option,char  *versionstr) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy  (prototype  .name, proto_name); 
strcat(prototype_name,PROTOTYPE_EXT); 
Boolean  file_operation_successful  =  FALSE; 

switch  (number-arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator .name); 
if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr; 

vobjectPtr  =  threadPtr— >current(); 

vobject  Jocktime  =  vobjectPtr— ►getLockTime(); 

if  (vobject  Jocktime>0) 

//  lock  was  set.. prevent  "w"  checkout 

{  , 

if  (strcmp(file_writejoption,"HH)==0) 
//  if  attempting  "W"  -  change  to  "r" 

{ 

cerr  <  "< ERROR:    Module  " 

<  vobjectPtr-^getNodeName()  <  "  locked  by   :     " 
•C  vobjectPtr— ►getWorker() 

•C  "  Resetting  write  option  to  read-only >\n"; 
strcpy(file_write  .option, "r"); 
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} 

else 

cerr  <C  "<Caution:      "  <C  vobjectPtr— +getNodeName() 

<  "   is  locked. >  \n"  <  "Date  Locked:     " 
<C  ctime(&:vobject  Jocktime) 

<C  "operator  files   checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <  "MODEHAME >   "  <  vobjectPtr— getNodeName()  <"\n"; 

file_operation.successful  = 

vobjectPtr  -+  checkoutCOMPONENTNode(file_write option); 
if  ((file_operatiomsuccessful)  &&: 

((strcmp(file_write_option,"V")— 0)  || 
(strcmp(file_write_option,"w")==0))) 

{ 

vobjectPtr  — *  setLock();  //  set  root  lock 
vobjectPtr  — ►  setWorker(); 
vobjectPtr  — ►  resetLastOpFalse(); 
vobjectPtr— ►putObjectO; 

if  (!file_operationjsuccessful) 

cerr  <C  "<Error  checking  out   "  <C  vobjectPtr  — ►getNameQ  ; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_FILES:>\n"; 

} 

} 
else 

{ 

cout  <  "<Error  getting  Prototype   in  GET_VOBJECT_FILES:  >\n"; 

} 
break; 
case  3: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V -OBJECT  *  vobjectPtr; 

vobjectPtr  =  threadPtr— >version(atoi(versionstr)); 
vobjectJocktime  =  vobjectPtr— ►getLockTime(); 
if  (vobjectJocktime>0)  //  prevent  checkout 

{   . 

if  (strcmp(nle_write_option,"w")==:0)  //  change  "w"  to  "r" 

i 

cerr  <  "<ERR0R:   Module  "  <  vobjectPtr->getNodeName() 

<  "  locked  by   :     "  <  vobjectPtr— ►getWorker() 

•C  "   Resetting  write  option  to  read-only>\n"; 
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} 


strcpy  (file_write  .option ,  "r  " ) ; 

} 
else 

cerr  <C  "<Caution:      "  •<  vobjectPtr— ►getNodeName() 
<  "   is  locked. >  \n"  <  "Date  Locked:     " 
•C  ctime(&;vobject_k>cktime) 

<C  "operator  files  checked  out  in  read-only  mode\n"; 

} 
else 

cerr  <  "MODEHAME >  "  <  vobjectPtr->getNodeName()  <"\n"; 

COMPONENTPtr  =  vobjectPtr^getCOMPONENT(); 
file_operationjsuccessful  = 

vobjectPtr  -»  checkoutCOMPONENTNode(file .write option); 
if  ((file-operationjsuccessful)  &&; 

((strcmp(file_writejoption,"W")==0)  || 
(strcmp(file_writejoption,"w")==0))) 

{ 

vobjectPtr  — ►  setLock();  //  set  root  lock 
vobjectPtr  — »•  setWorker(); 
vobjectPtr  — ►  resetLastOpFalse(); 
vobjectPtr— ►putObjectO; 

} 
if  (!file_operationj3uccessful) 

cerr  <C  "<Error  checking  out   "  <C  vobjectPtr  — ►getNameQ  ; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  GET_VOBJECT_FILES:>\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype   in  GET_VOBJECT_FILES>"; 

} 
break; 
default: 

cout  <C  "<ERROR:    invalid  number  args  for  get  vobject  FILES>\n"; 
} 


void  dump_vobject_tree_func(int  number^arguments,  char  *proto_name, 

char  *operator_name,char  *file_write_option,  char  *versionstr) 

{ 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy  (prototype  _name,proto_name); 
strcat(prototype_name,PROTOTYPE.EXT); 
Boolean  file_operation_successful  =  FALSE; 

switch  (number^arguments) 
{ 
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case  3: 

prototypeptr  =  (PROTOTYPE*)OC  Jookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operatorjiame); 
if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr  =  threadPtr— current(); 
vobjectJocktime  =  vobjectPtr— ►getLockTime(); 
if  (vobjectJocktime>0)  //  prevent  checkout 

{  m 

if  (strcmp(file_write_option,"w")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERROR:   Module  "  <  vobjectPtr-*getNodeName() 
<  "  locked  by   :     "  <  vobjectPtr->getWorker() 
<C  "  Resetting  write  option  to  read-only>\n"; 
strcpy  (file.write  option, "r"); 

} 
cerr  <C  "<Caution:      "  <C  vobjectPtr— ►getNodeName() 
<  "   is  locked.  >  \n"  <  "Date  Locked:     " 
•C  ctime(&vobject  Jocktime) 

•C  "Subtree  checked  out   in  read-only  mode\n"; 

} 
else 

cerr  <  "HODENAHE >   "  <  vobjectPtr— ►getNodeName() 

•C  "\nVersion:      "  •<  vobjectPtr— ►getVersionNumber()  <C"\n\n"; 
file_operation_successful  = 

vobjectPtr  ->  checkoutCOMPONENTNode(file_write.option); 
if  ((file_operation_successful)  &;&; 

((strcmp(file_writejoption,"w")==0)  || 
(strcmp(file_write_option,"V")==0))) 

{ 

vobjectPtr  — *  setLock();  //  set  root  lock 

vobjectPtr  — ►  setWorker(); 
vobjectPtr  — *  resetLastOpFalse(); 
vobjectPtr— »putObject(); 

} 
if  (file_operation_successful) 

vobjectPtr  — ►  dumpSubtree(file_write.option); 
//  dump  rest  of  tree 
else 

cerr  <C  "<Error  checking  out   "  -C  vobjectPtr  — ►getNameO 
<C  "  Aborting  dump_vobject_tree_func>\n"; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  DUMP_VOBJECT_TREE:>\n"; 

} 
} 
else 

{ 
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cout  <  "<Error  getting  Prototype   in  DUMP_VOBJECT_TREE:  >\n"; 

} 
break; 
case  4: 

prototypeptr  =  (PROTOTYPE*)OC  Jookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V_OBJECT  *vobjectPtr  =  threadPtr— ►version(atoi(versionstr)); 
vobjectJocktime  =  vobjectPtr— ►getLockTime(); 
if  (vobject_locktime>0)  //  prevent  checkout 

{  m 

if  (strcmp(file_write_option,"w")==0)  //  change  "w"  to  "r" 

{ 

cerr  <  "<ERROR:   Module  "  <  vobjectPtr->getNodeName() 
<  "   locked  by    :      "  <  vobjectPtr->getWorker() 
<C  "   Resetting  write  option  to  read-only>\n"; 
strcpy(file_write  .option, "r"); 

} 
else 

cerr  <C  "<Caution:      "  •<  vobjectPtr— ►getNodeName() 
<  "   is  locked. >  \n"  <  "Date  Locked:     " 
•C  ctime(&;vobject Jocktime) 

■C  "Subtree  checked  out  in  read-only  mode\n"; 

} 
else 

cerr  <  "MODENAME >   "  <  vobjectPtr->getNodeName() 

<  "\nVersion:      "  <  vobjectPtr->getVersionNumber()  <"\n\n"; 
file_operation_successful  — 

vobjectPtr  -+  checkoutCOMPONENTNode(file_write.option); 
if  ((file_operation_successful)  &;& 

((strcmp(nle_writejoption,"w")==0)  || 
(strcmp(nle_write_option,"W")==0))) 

{ 

vobjectPtr  — ►  setLock();  //  set  root  lock 
vobjectPtr  — ►  setWorker(); 
vobjectPtr  — ►  resetLastOpFalse(); 
vobjectPtr— +putObject(); 

} 
if  (filejoperation_successful) 

vobjectPtr  — ►  dumpSubtree(file_writejoption); 
//  dump  rest  of  tree 
else 

cerr  <C  "<Error  checking  out  "  <  vobjectPtr  — ►getNameO 
<C!  "  Aborting  dump_vobject_tree_func>\n"; 

} 
else 

{ 
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cout  <  "<Error  getting  thread  in  DUMP_VOBJECT_TREE:>\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype   in  DUMP_VOBJECT_TREE>"; 

} 
break; 
default: 

cout  <C  "<ERROR:    invalid  number  args  for  get  vobject  TREE  FILES>\n"; 
} 
} 

void  longJist_operators_func(int  number^arguments,  char  *proto_name, 

char  *operator_name,char  *versionstr) 

{ 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy(prototype_name,proto_name); 
strcat(prototype_name,PROTOTYPEJ:XT); 

switch  (number^arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OC_lookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr  =  threadPtr-+current(); 
vobjectPtr  — *  longlistOperatorNames(); 

} 
else 

{ 

cout  <C  "<Error  getting  thread  in  long  list  operators  :>\n"; 

} 
} 
else 

{ 

cout  <C  "<Error  getting  Prototype  in  long  list  operators:  >\n"; 

} 
break; 
case  3: 

prototypeptr  =  (PROTOTYPE*)OC  Jookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operatoraiame); 
if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr  =  threadPtr— »^version(atoi(versionstr)); 
vobjectPtr— ►longlistOperatorNamesQ; 
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} 

else 

{ 

cout <C  "<Error  getting  thread  in  long  list  operators:  >\n"; 

} 
} 
else 

{ 

cout  <C  "<Error  getting  Prototype  in  long  list  operators>"; 

} 
break; 
default: 

cout  <C  "<ERR0R:    invalid  number  args  for  long  list  operators >\n"; 
} 
} 

void  long_list_children_func(int  number_arguments,  char  *proto_name, 

char  *operator_name,char  *versionstr) 

{ 

char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 

strcpy(prototype_name,proto_name); 

strcat(prototype_name,PROTOTYPE_EXT); 

switch  (number-arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V  .OBJECT  *vobjectPtr  =  threadPtr-^current(); 

vobjectPtr  — ►  listChildrenQ; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  LONG_LIST_CHILDREN:  >\nM; 

} 

} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  LON(LLIST_CHILDREN :  >\n"; 

} 
break; 

case  3: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 
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{ 

V.OBJECT  *vobjectPtr  =  threadPtr— ►version(atoi(versionstr)); 
vobjectPtr— distChildrenO ; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  L01IG.LIST.CHILDREN:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  LONG_LIST_CHILDREN>"; 

} 
break; 
default : 

cout  <C  "<ERROR:    invalid  number  args  lor  long  list   children  >\n"; 
} 
} 

void  longJist_parents_func(int  number_arguments,  char  *proto_name, 

char  *operator_name,char  *versionstr) 

{ 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy  (prototype_name, protojiame); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch  (number-arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr  =  threadPtr-*current(); 
V.OBJECT  *parentPtr  =  vobjectPtr-*getParent(); 
if  (parentPtr) 

{ 

V.OBJECT  *grandparent  =  parentPtr— >getParent(); 
if  (grandparent) 

grandparent  — ►  listChildren(); 
else 

cout  <  "   <\nRoot  Mode:      " 

<  parentPtr— getNodeName()  <  ">\n"; 

} 
else 

cout  <  "<Already  at  Root  VJ3BJECT>\n"; 

} 
else 

{ 
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} 


cout  <  "<Error  getting  thread  in  LONCLLIST.CHILDREN:  >\nM; 
} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype  in  LOMG_LIST_CHILDREH:>\n"; 

} 
break; 

case  3: 

prototypeptr  =  (PROTOTYPE*)OC_lookup(prototype_name); 
if  (prototypeptr) 

{ 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 
if  (threadPtr) 

{ 

V -OBJECT  *vobjectPtr  =  threadPtr— >version(atoi(versionstr)); 
V_OBJECT  *parentPtr  =  vobjectPtr^getParent(); 
if  (parentPtr) 

{ 

V.OBJECT  *grandparent  =  parentPtr— »getParent(); 
if  (grandparent) 

grandparent  — ►  listChildren(); 
else 

cout  <  "<Can't  list  Parent/siblings  of  Root  V_Object>\n"; 

} 
else 

cout  <  "<Already  at  Root  VJDBJECT>\nM; 

} 
else 

{ 

cout  <  "<Error  getting  thread  in  LONG_LIST_CHILDREN:  >\n"; 

} 
} 
else 

{ 

cout  <  "<Error  getting  Prototype   in  LONG_LIST_CHILDREN>"; 

} 

break; 
default: 

cout  <C  "<ERR0R:    invalid  number  args  lor  long  list  children  >\n"; 
} 


void  add_vobject_and_subtreeJunc(int  number_arguments,  char  *proto_name, 

char  *operator_name) 

{ 
char  *prototype_name  =  new  char  [strlen(proto_name)+5]; 
strcpy(prototype_name,proto_name); 
strcat(prototype_name,PROTOTYPE_EXT); 


346 


switch  (number^arguments) 

{ 
case  2: 

prototypeptr  =  (PROTOTYPE*)OCJookup(prototype_name); 

if  (prototypeptr) 

{ 

DIRECTORY  *capsdirectory; 

capsdirectory  =  new  DIRECTORY(); 

capsdirectory— ►  read  jdirectory  (operator  _name); 

capsdirectory— ►updatetimestamp(); 

TREENODEJinkedlist  operatorList  =  capsdirectory— +getOperatorList(); 

TREENODE  *rootnode  =  capsdirectory— ►  find  J,reenode(operator  Jiame); 

TREENODE  *tree_root  =  new  TREENODE(rootnode,NULL); 

TREE  *workingtree  =  new  TREE(tree _root,  operator_name); 

workingtree— +build_tree(tree  .root,  operatorList); 

cerr  <  "CHECKII~>  "  <  operator  .name  <  "\n"; 

threadPtr  =  (THREAD  *)OCJookup(operator_name); 

V.OBJECT  *new_parent  =  (V.OBJECT  *)0; 

if  (threadPtr) 

{ 

V.OBJECT  *vobjectPtr  =  threadPtr— current(); 
new  .parent  =  vobjectPtr— ►getParentO; 

} 
V.OBJECT  *new_root  =  tree  joot— >checkin  Jiode(new parent); 
if  (!new_root) 

{ 

cerr  <C  "<Error:      Could  not   establish  new_root   in" 

•C  "add_vobject_and_subtree_iunc.     Aborting.  >\n"; 

break; 

} 
newjoot— *setNodeName(tree_root— >getname()); 
treejoot— >-checkin-Subtree(new  .root); 

} 
else 

{ 

cout  <  "<Error  getting  Prototype   in  ADD_VOBJECT_Subtree:>\n"; 

} 
break; 
default: 

cout  -C  "<ERROR:    invalid  number  args  for  add  vobject  k  SUBTREE>\n"; 
} 
} 
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APPENDIX  E 
SETUP  FILES 

A.  ONTOS  HEADERS/MAKEFILES  PREPARATION  NOTES 

Only  the  ReferenceMacros.h  ONTOS  specific  header  file  is  included  in  this  appendix 
due  to  its  unique  nature.  It  is  a  file  built  after  the  ONTOS  system  was  released  and  was  not 
included  with  the  standard  beta  package. 

The  makefiles  are  included  as  an  aid  for  the  user  in  developing  ONTOS  applications. 

B.  PRINTING  NOTES 

This  code  was  prepared  for  printout  using  the  c++21atex  code  generator.  This  generator  parses  the 
ASCII  text  input  files  and  places  latex  commands  where  directed.  This  makes  the  code  layout  more  readable 
and  highlights  the  important  data  strucutes  and  key  words  within  the  C++  code.  The  latex  output  was  then 
converted  to  postscript  format  with  the  dvitops  program. 

C.  MAINTENANCE 

This  code  is  maintained  at  the  Naval  Postgraduate  School  Computer  Science  department 
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//  File  Header 

// : 

//.Filename :  ReferenceMacros.h 

//.SCCS  ID :1.3 

//.Release  No....:  1 

//.Date :  9/16/91 

//.Compiler :  Glockenspiel  C++  2.1 

//. : 

//  End  header  comments 


I* 
************************************************************************** 

* 

*  Disclaimer: 

* 

*  This  header  file  is  a  special  header  developed  entirely  by 

*  Ontologk,  Inc. 

*  Copyright  (c)  1990,  Ontologic,  Inc.  USA  All  rights  reserved. 

*  It's  purpose  is  to  handle  Ontos  References  within  the  user  code  of 

*  the  Design  Database  System  and  thus  is  included  as  an  integral  portion 

*  of  the  Design  Database  code. 

************************************************************************** 

*/ 

#include  <Reference.h> 

//  Note  that  the  compiler  must  know  that  SpecType  is  an  Entity*, 
//  e.g.,  by  having  seen  the  appropriate  class  definition. 

//  FOR  Macro  form  use  this  define  and  continuation  characters. 

#define  TypeCheckReference(  SpecReference,  SuperReference..  SpecType  )\ 
class  SpecReference  :  public  SuperReference  {\ 

publicA 

SpecReferenceO  { }\ 

SpecReference(SpecType*  referent,  Entity*  context)\ 

:  (referent,  context)  { }\ 

SpecReference(SpecType*  referent,  StorageManager*  context)\ 

:  (referent,  context)  { }\ 

SpecReference(SpecType*  referent)\ 

:  (referent)  { }\ 

void  Reset(Entity*  referent,  Entity*  context)\ 

{\ 

SuperReference:  :Reset(referent,  context);\ 

}\ 

void  Reset(Entity*  referent,  StorageManager*  context)\ 
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SuperReference:  :Reset(referent,  context);\ 

)\ 

void  Reset(Entity*  referent)\ 

(\ 

SuperReference:  :Reset(referent);\ 

}\ 

void  Reset(SpecReference&  otherRef,\ 
StorageManager*  oldContext,\ 
StorageManager*  currentContext)\ 

{\ 

SuperReference:  :Reset(otherRef,  oldContext,  currentContext);\ 

}\ 

void  Reset(SpecReference&  otherRef,\ 

Entity*  oldContext,  \ 

Entity*  currentContext)\ 

{\ 

SuperReference:  :Reset(otherRef,  oldContext,  currentContext);\ 

}\ 

void  Init(SpecType*  referent,  Entity*  context)\ 

{\ 

SuperReference:  :Init(referent,  context);\ 

}\ 

void  Init(SpecType*  referent,  StorageManager*  context)\ 

{\ 

SuperReference:  :Init(referent,  context);\ 

}\ 

void  Init(SpecType*  referent)\ 

(\ 

SuperReference:  :Init(referent);\ 

}\ 

void  Init(SpecReference&  otherRef,  \ 
StorageManager*  oldContext,  \ 
StorageManager*  currentContext)\ 

{\ 

SuperReference:  :Init(otherRef,  oldContext,  currentContext);\ 

)\ 

void  Init(SpecReference&  otherRef,  \ 

Entity*  oldContext,  \ 

Entity*  currentContext)\ 

{\ 

SuperReference:  :Init(otherRef,  oldContext,  currentContext);\ 

}\ 

SpecType*  Binding(Entity*  context,  LockType  lock=DefaultLock)\ 

{\ 

return  (SpecType*)  SuperReference::Binding(context,  lock);\ 

}\ 

SpecType*  Binding(StorageManager*  context,  \ 

LockType  lock=DefaultLock)\ 

{\ 

return  (SpecType*)  SuperReference::Binding(context,  lock);\ 

}\ 
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SpecType*  activeBinding(Entity*  context)\ 

{\ 

return  (SpecType*)  SuperReference::activeBinding(context);\ 

}\ 

SpecType*  activeBinding(StorageManager*  context)\ 

{\ 

return  (SpecType*)  SuperReference::activeBinding(context);\ 

}\ 

}  /*  invocation  supplies  final ';'  */ 


#* 

ft************************************************************************** 

#* 

#*  Ontologic,  Inc. 

#*  Copyright  (c)  1990,  Ontologic,  Inc.  USA  All  rights  reserved. 

#* 

^********************* **************************************  *************** 

#* 

#  file:  makefile 
include  make-macros 

OBJECTS  =  main.o  components  versioned_objecLo  thread.o  text_objecLo  \ 

prototype.o  configuration.o  evaluations  directory.o\ 

tree.o  treenode.o  queue.o  nodesupport.o  protfunc.o  \ 

conffunc.o  vobjectfunc.o 

CLASSJPY_HDRS  =  thread.h  text_object.h  prototype.h  configuration.hN 

componenth  versioned_object.h 

NONCLASSIFY_HDRS  =  evaluation^  directory .h  tree.h  treenode.h\ 

queue. h  nodesupporth  protfunc.h \ 

conffunc.h  vobjectfunch  ddbdefines.h  tracer.h 

HEADERS  =  $(CLASSIFY_HDRS)  $(NONCLASSIFY_HDRS) 

# 

#  Objectfile/Headerfile  dependencies: 

#  Persistent  classes  need  their  headers,  and  the  application 

#  needs  all  headers. 

# 

tree.o:  tree.h 

nodesupport.o:  nodesupport.h 
protfunc.o:  protfunc.h 
evaluation. o:  ddbdefines.h 
component.0:  componenLh  ddbdefines.h 
thread.o:  thread.h  ddbdefines.h 
versioned_objecLo:  versioned_objecLh 
text_object.o:  text_objecth  ddbdefines.h 
configuration.o:  configurauon.h 
prototype.o:  prototype.h 
main.o:  $(HEADERS) 
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include  make-targets 


#* 

tt**************** *++***********++*******»***»+****, ********** ************** 

#* 

#*  Ontologic,  Inc. 

#*  Copyright  (c)  1990,  Ontologic,  Inc.  USA  All  rights  reserved 

#* 

^* *******♦*************,****♦********»****************»*, ****************** 

#* 

#  file:  make-macros 

# 

#  Cplus  sets  up  function  bindings  and  then  calls  CC,  but 

#  doesn't  always  produce  the  best  warnings  and  error-messages 

#  So  use  CC  when  debugging  warnings  and  errors,  and  use 

#  cplus  to  prepare  for  linking 

#  You  can  choose  a  compiler  on  the  UNIX  command  line;  just 

#  specify  COMPILER,  e.g.,  'make  COMPILER=CC' 

#- 

COMPILER  =  $(ONTOS_BIN)/cplus 
#COMPILER  =  CC 

#  We  have  versions  for  SUN  and  GLOCK 
#WHICH_COMPILER  =  CC_SUN 
WHICH_COMPILER  =  CC_GLOCK 

# 

#  Flags  for  classify:  See  the  System  Reference 

#  By  choosing  EXTENSION=+X  (perhaps  on  the  command  line)  one 

#  enables  instance-iteration 
# 

#  By  choosing  VERBOSE=+v  (perhaps  on  the  command  line)  one 

#  can  see  output  from  'classify' 
# 

# 

VERBOSE  = 
#VERBOSE  =  +v 
EXTENSION  = 
#EXTENSION  =  +X 

ONTOS_DIR=  /usr/local 
ONTOS_BIN=  $(ONTOS_DIR)/bin 

INCLUDE  =  -I$(ONTOS_DIR)/include/ONTOS  -I$(ONTOS_DIR)/include/hxx  -I/usr/include 
LIBRARY  =  -L$(ONTOS_DIR)/Iib  -10NTOS 
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KERNEL_DB  =  $(ONTOS_DIR)/ontos/db/OntosSchema 
REGISTER_FLAG  =  $(THE_DB_DIR)/alreadyRegistered 

SERVER_HOST  =  sun51 

THE_DB_DIR  =  $(HOME)/ontos 
MY_NAME  =  ddb53 

first_target  again 

#* 

#* 

#*  Ontologic,  Inc. 

#*  Copyright  (c)  1990,  Ontologic,  Inc.  USA  All  rights  reserved. 

#* 

#* 

#  file:  make-targets 


#  T—  -== ===== = 

tf  ====== -== 

#  The  first  part  of  this  file  establishes  relevant  information. 

#  r— 


# 

#  Extra  flags  for  the  compiler/linker,  -g  means  include  debug  info. 

#  -Bstatic  forces  the  loader  to  use  static  libraries,  which  may 

#  help  debugging. 

# 

CFLAGS  =  -g 
LFLAGS  =  -g  -Bstatic 

# 

#  How  to  make  a  .o  when  its  .cxx  has  been  touched. 
#— 

.SUFFIXES:  .cxx 

.cxx.o: 

@echo  '...  Compiling  $*.cxx  with  $(COMPILER)' 

@if  [  "$(COMPILER)"  =  "CC"  ];  \ 

then  $(COMPILER)  -c  -D$(WHICH_COMPILER)  $(CFLAGS)\ 

$(TNCLUDE)$*.cxx;\ 

rm-f$*.o;\ 
else\ 

$(COMPILER)  -c  -D$(WHICH_COMPILER)  $(CFLAGS)\ 

$(TNCLUDE)$*.cxx;\ 
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#  The  second  part  of  this  file  uses  the  above  information  to 

#  let  you  'make*  the  various  goals. 

n 

# 

# 

#  Recompile/relink/reload-schemata  if  necessary 

# 

again:  main  loadTypes 

test:  again 

main  $(MY_NAME) 

# 

#  Register,  compile,  link,  load-schemata 

# 

first:  register  main  loadTypes 

#- ~ - 

#  Link/compile  the  program,  if  necessary 

# 

main:  $(OBJECTS) 

@echo ...  Linking  main 

@($(COMPILER)  $(LFLAGS)  -o  main  -QUIET  \ 

$(OBJECTS)  $(LIBRARY)) 

# 

#  Establish  logical-to-physical  mapping  for  database  fragment 
# 

register: 

@if  [  -f  $(REGISTER_FLAG)  ];  then  \ 
echo  You  are  already  registered!;  \ 
exit  1;\ 

else  touch  $(REGISTER_FLAG);  \ 
fi 

#cp  $(KERNEL_DB)  $(THE_DB_DIR)/$(MY_NAME) 
#chmod  u+w  $(THE_DB_DIR)/$(MY_NAME) 
#@echo  ...  Running  DBATool  to  register 
#@$(ONTOS_BIN)/DBATool  -e\ 

#  register  kernel  $(MY_NAME)_kern  on  $(SERVER_HOST)  \ 

#  at  $(THE_DB_DIR)/$(MY_NAME) 
#@$(ONTOS_BIN)/DBATool  -e\ 

#  add  area  $(MY_NAME)_kern  to  $(MY_NAME) 

# 

#  Add  two  more  areas  to  the  logical  database,  which  initially 

#  contained  only  the  kernel-area. 
# 

#  We  also  illustrate  the  process  of  determining  which  area  is 

#  primary. 

# 

@$(ONTOS_BIN)/DBATool  -e\ 
create  area  $(MY_NAME)_A1  on  $(SERVER_HOST)  \ 
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at  $(THE_DB_DIR)/$(MY_NAME)_areal 
@$(ONTOS_BIN)/DBATool  -e\ 
create  area  $(MY_NAME)_A2  on  $(SERVER_HOST)  \ 
at  $(THE_DB_DIR)/$(MY_NAME)_area2 
@$(ONTOS_BIN)/DBATool  -e\ 
add  area  $(MY_NAME)_A1  to  $(MY_NAME) 
@$(ONTOS_BIN)/DBATool  -e\ 
add  area  $(MY_NAME)_A2  to  $(MY_NAME) 
@$(ONTOS_BIN)/DBATool  -e\ 
set  db  $(MY_NAME)  primary  $(MY_NAME)_kern 
@$(ONT0S_BIN)/DBATool  -e\ 
show  db  $(MY_NAME) 
@$(ONTOS_BIN)/DBATool  -e\ 
show  db 
# 

#  Make  backup  copies  of  the  areas,  so  that  we  can  always  start 

#  fresh.  We  can't  simply  copy  the  master  version  of  OntosSchema 

#  since  (a)  we  can  register  a  kernel  only  once  and  (b)  when 

#  we  register  the  kernel,  OCServer  changes  an  area-mapping 

#  section  in  the  header  of  the  area. 

#- 

@echo 

@echo  Waiting  for  the  above  changes  to  take  hold  before 

@echo  making  backup  copies. 

sleep  20 

-mkdir  $(THE_DB_DIR)/backup 

cp  $(THE_DB_DIR)/$(MY_NAME)_Kemel  $(THE_DB_DIR)/backup 

cp  $(THE_DB_DIR)/$(MY_NAME)_area?  $(THE_DB_DIR)/backup 

# 

#  Refresh  your  Directory  in  the  kernel  database,  and  prime 

#  schema  for  reloading. 

#- 

freshDB: 

@rm  -f  loadTypes 

@rm  -f  $(THE_DB_DIR)/*JRN* 

@cp  $(THE_DB_DIR)/backup/*  $(THE_DB_DIR) 

chmod  ugo+rw  $(THE_DB_DER)/$(MY_NAME) 

# 

#  Load  schemata,  i.e.,  information  about  user-defined  types 

#  into  the  database.  Since  we  don't  support  migration,  load 

#  is  performed  only  on  a  fresh  database 
# 

#  +D  indicates  logical  database. 

# 

loadTypes:  $(CLASSIFY_HDRS) 
@make  freshDB 
@make  loadTypes2 
@  touch  loadTypes 
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